Question

Составить программу вычисления суммы нечетных чисел в диапазоне от 15 до 75 (цикл с постусловием)
язык программирования Паскаль

Answer 1

var

i, sum_ : integer;

begin

sum_ := 0;

i := 15;

repeat

sum_ := sum_ + i;

i := i + 2;

writeln(i);

until i >= 76;

writeln(sum_);

end.