Question

Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа n. С постусловием (for ещ4 не изучали).

Answer 1

Const n=20;
var sum:integer;
       i:byte;

begin
sum:=0;
i:=1;
repeat
   sum := sum + i;
   i := i+1;

until (i=n);
end.