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

Предыдущий
вопрос Следующий
вопрос

program SumRepeatUntil;

var
sum, i: Integer;

begin
sum := 0;
i := 1;

repeat
sum := sum + i;
i := i + 1;
until i > 100;

WriteLn('Sum of numbers from 1 to 100:', sum);
WriteLn('Average: ', sum / 100:0:2);
end.

program SumWhileDo;

var
sum, i: Integer;

begin
sum := 0;
i := 1;

while i <= 100 do
begin
sum := sum + i;
i := i + 1;
end;

WriteLn('Sum of numbers from 1 to 100:', sum);
WriteLn('Average: ', sum / 100:0:2);
end.

program SumForTo;

var
sum, i: Integer;

begin
sum := 0;

for i := 1 to 100 do
begin
sum := sum + i;
end;

WriteLn('Sum of numbers from 1 to 100:', sum);
WriteLn('Average: ', sum / 100:0:2);
end.