РЕБЯТ!!! На языке pascal нужно вычислить среднее арифметическое чисел ОТ 11 ДО 20 через repeat until. Бог в помощь ребят))
Ответы
Ответ дал:
0
var i,s,k:integer;
begin
i:=11;
s:=0;
k:=0;
repeat
s:=s+i;
i:=i+1;
k:=k+1;
until i>20;
write ('Cреднее арифметическое чисел ОТ 11 ДО 20 равно: ', s/k)
end.
begin
i:=11;
s:=0;
k:=0;
repeat
s:=s+i;
i:=i+1;
k:=k+1;
until i>20;
write ('Cреднее арифметическое чисел ОТ 11 ДО 20 равно: ', s/k)
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад