Составить программу ,которая будет выдавать последовательность квадратов натуральных чисел от 1 до n, где n вводится с экрана.заранее
160
349
Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1640 от 17.03.2018 внимание! если программа не работает, обновите версию! begin 1.to(readinteger('n='(t-> t*t).println end. пример n= 30 1 4 9 16 25 36 49 64 81 100 121 144 169 196 225 256 289 324 361 400 441 484 529 576 625 676 729 784 841 900
Var x,n: integer; begin write('n = '); readln(n); x : = 1; while sqr(x) < n do begin write(sqr(x),' '); x : = x + 1 end; readln end.
Популярно: Информатика
-
Be11a18.01.2023 04:26
-
hopik230.10.2021 12:29
-
Еролггштши02.05.2020 06:28
-
Brodyga00717.03.2020 21:38
-
ритуа18.10.2021 01:59
-
тупойчеловек37628.06.2020 02:37
-
DarkDanilka28.03.2021 11:02
-
деляяяяяя16.02.2020 16:55
-
samoilenkoludmi27.07.2020 10:08
-
20тимоха1801.07.2022 23:05