Составить программу вычисления суммы первых 10 натуральных чисел. (Программу написать...

Question

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

Answer 1

1.

begin

var a,b:integer;

a:=1;

b:=0;

while a<=10 do begin</p>

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.

Comments

Здравствуйте, можете помочь с информатикой?

---

Здравствуйте можете мне помочь с информатикой умоляю тебя