Напишите программу которая вводит натуральное число n и выводит n квадратов из символов...

Question

Напишите программу которая вводит натуральное число n и выводит n квадратов из символов "@".
Ввод:
3
Вывод:
@@@ @@@ @@@
@ @ @ @ @ @
@@@ @@@ @@@

Answer 1

{ Ответ дан на языке 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.