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

Приложения:

stesis: я добавил

Ответы

Ответ дал: stesis
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.


aremav51: Я ОШИБЛАСЬ МОШ
aremav51: МОЖНО 3 НОМЕР
stesis: хорошо
stesis: только не пиши капсом))
aremav51: ок
aremav51: жду)
stesis: я добавил
aremav51: очень выручил спасибо
stesis: поставь пять звёзд если не сложно))
Похожие вопросы