Напишите программу которая вводит натуральное число n и выводит n квадратов из символов "@".
Ввод:
3
Вывод:
@@@ @@@ @@@
@ @ @ @ @ @
@@@ @@@ @@@
Ответы
Ответ дал:
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.
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.
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
2 года назад
7 лет назад