Составьте программу вычисления суммы натуральных чисел от 20 до 99 с использованием оператора repeat

Question

Стоян

13 мая, 08:39

+4

Ответы (1)

Знаете ответ на вопрос?

Мартьян · Answer 1

Program n1;

var i, sum:integer;

begin

i:=20;

sum:=0;

repeat

sum:=sum+i;

i:=i+1;

until i>99;

writeln ('сумма = ', sum) ;

end.