Question

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

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.

Answer 2

//PascalABC.Net 3.2
begin
var i:=20;
var sum:=0;
repeat
sum+=i;
i+=1;
until i>99;
write (sum);
end.