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

tonuo84 tonuo84    3   20.09.2019 23:50    0

Ответы
anel3103 anel3103  08.10.2020 05:47
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика