Ответы
Ответ дал:
1
program HelloWorld;
var sum : double;
var i : integer;
begin
//sum := (50*(50+1)/2)/50;
for i:=1 to 50 do
sum:= sum + i;
sum:= sum/50;
writeln('Средне-арифметическое от 1 до 50 равно:');
writeln(sum:15:2);
end.
kprof:
Использовал не цикл, а формулу)))
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
2 года назад
7 лет назад