Ответы на вопрос:
Var i,n: integer; a: array of integer; begin readln(n); setlength(a,n+1); for i : = 1 to n do begin a[i] : = sqr(i); write(a[i], ' ') end; end.
Популярно: Информатика
-
агата28129.03.2023 06:37
-
Mаjоr07.02.2022 12:38
-
pokintokin13.08.2021 08:32
-
alsutil30.06.2020 17:39
-
женя136208.09.2021 00:27
-
prozorovamary2330.03.2022 07:39
-
Dmitry023214119.10.2020 14:02
-
vasikstrowb31.01.2023 23:16
-
sonyapastuxova19.08.2020 04:57
-
pomoshvdorogep0arzo13.07.2022 16:39