Question

На языке pascal нужно вычислить среднее арифметическое чисел от 11 до 20 через repeat until. бог в ))

Answer 1

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.