Question

нужно решить2 и 6 номер
ДАЮ 30 БАЛЛОВ

Answer 1

Ответ:

Объяснение:

2)

var a,i:integer;

begin

 a := 0;

 for i := 10 to 20 do

   a := a+i;

 writeln(a)

end.

6)

var a:integer;

begin

 a := 1;

 while a <= 16 do

 begin

 writeln(a);

 a := a+3;

 end;

end.

3)

var a,i:integer;

begin

 a := 1;

 for i := 1 to 8 do

   a := a*i;

 writeln(a)

end.