Ответы на вопрос:
Var a: array [1..30] of integer; i,x,n: integer; begin x: =1; write('введите степень 2 (n< =30): '); readln (n); for i: = 1 to n do begin a[i]: = x*2; write(a[i],' '); x: =x*2 end end.
Популярно: Информатика
-
Profesor2Max13.12.2021 17:05
-
vlgonotrada15.07.2020 08:30
-
ваня200712329.01.2020 15:50
-
Alina1703111.03.2023 12:54
-
Карандш01.05.2023 16:32
-
ludvig914.08.2021 18:15
-
kostya19611.06.2021 16:46
-
malvinka01129.06.2022 01:54
-
pandaokia03.12.2020 17:44
-
terehovakira25.08.2020 07:38