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

Question

Надеха

1 июля, 06:03

+2

Ответы (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.