Ответы на вопрос:
{ответ дан на языке pascal } program solution(input, output); var n: integer; i: integer; str: string; begin write('введите кол-во квадратов: '); readln(n); str : = '@@@ '; for i : = 2 to n do begin str : = str + copy(str, 1, 4); end; writeln(str); writeln(str); writeln(str); end.
Популярно: Информатика
-
alpysovat06.05.2022 17:30
-
MariyamGaraeva05.02.2020 04:58
-
Мастер1списывания18.05.2022 16:44
-
yaltame16.02.2021 17:28
-
ketti20422.12.2020 06:26
-
markkolk77R01.09.2022 01:02
-
Гиперборея18.11.2021 12:05
-
олололо1230.12.2022 10:58
-
wolk228916.12.2021 11:39
-
adekvat311.01.2021 11:03