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

3339991 3339991    3   27.04.2020 10:45    0

Ответы
vramazanova4 vramazanova4  13.10.2020 22:29

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика