Написать программу вычисляющую среднее арифметическое целых чисел от 0 до 100.

varich83 varich83    3   05.06.2019 07:00    1

Ответы
Алёна11Кот Алёна11Кот  05.07.2020 21:17
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика