Написать программы суммирования чисел от 1 до 100, используя все циклические конструкции (Repeat ... Until, While ... Do, For ... to). Найти среднее арифметическое этих чисел.

Question

18 июня, 15:14

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Алдан · Answer 1

Var sum, i:integer;

sa:real;

begin

i:=0;

sum:=0;

for i:=1 to 100 do

sum:=sum+i;

writeln (sum);

sa:=sum/i;

writeln (sa:1:2);

end.