Регистрация
pechenkinaolga5
24.10.2021 06:10
Информатика
Есть ответ 👍

Выбери сферы кибернетики.

-экономика и управление

-математика

-Солнце

-землетрясение

-вычислительная техника

​

284
389
Посмотреть ответы 1

Ответы на вопрос:

вованчик3
вованчик3
4,8(2 оценок)

Объяснение:

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.

Популярно: Информатика