Question

Доброе время суток! Тема: Программная реализация циклического алгоритма.
Помогите,пожалуйста,сделать задание. Нужно вычислить сумму чисел от 1 до 20 используя различные варианты цикла. ​

Answer 1

var

//объявляем переменные для хранения сумм и переменной счетчика i

i, _sumWhile, _sumFor, _sumRepeat : integer;

begin

//цикл с параметром

for i := 1 to 20 do

   _sumFor := _sumFor + i;

writeln(_sumFor);

//цикл с предусловием

i := 1;

while i <= 20 do

   begin

   _sumWhile := _sumWhile + i;

   i := i + 1;

   end;

//цикл с постусловием

i := 1;

repeat

_sumRepeat := _sumRepeat + i;

i := i + 1;

until i > 20;

//выводим суммы чисел

writeln(_sumFor,' ', _sumWhile,' ', _sumRepeat);

end.