Написать программу вычисляющую среднее арифметическое целых чисел от 0 до 100.
More Questions From This User See All
Написать программу вычисляющую среднее арифметическое целых чисел от 0 до 100.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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.