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

Question

Ростислава

23 февраля, 16:10

+3

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