Написать программу вычисляющую среднее арифметическое целых чисел от 0 до 100.
Написать программу вычисляющую среднее арифметическое целых чисел от 0 до 100.
Гость
Ответ(ы) на вопрос:
ГостьVar i,k:integer;
s:real;
begin
for i:=0 to 100 do begin
s:=s+i;
k:=k+1;
end;
s:=s/k;
writeln (s:5:2);
end.
Не нашли ответ?
Похожие вопросы