Question

Составить программу вычисления суммы первых 10 натуральных чисел. (Программу написать двумя способами: 1.цикл с предусловием while, 2.цикл с постусловием repeat) ​

Answer 1

1.

begin

var a,b:integer;

a:=1;

b:=0;

while a<=10 do begin

b:=b+a;

a+=1;

end;

writeln(b);

end.

2.

begin

var a,b:integer;

a:=1;

b:=0;

repeat

b:=b+a;

a+=1;

until a > 10;

writeln(b);

end.