Регистрация
alinks792
08.06.2021 23:34
Информатика
Есть ответ 👍

Паскаль для начинающи. нужно нарисовать рисунок ( не сложный , но и не простой) что то типо этого : begin writeln (' *'); writeln (' ***'); writeln (' *****'); writeln (' *******'); writeln (' *******'); writeln (' * * *'); writeln (' *******'); writeln (' *******'); writeln (' * * *'); writeln (' *******'); end.

262
461
Посмотреть ответы 2

Ответы на вопрос:

Dasha021659
Dasha021659
4,7(61 оценок)

begin

writeln(' 00000000 ');

writeln(' 0000 0000');

writeln(' 0000 0000');

writeln(' 0000 0000 0000000');

writeln(' 0000 0000 0000 0000 ');

writeln(' 0000 0000 0000 0000 ');

writeln(' 0000 0000 0000 0000 ');

writeln(' 00000000 0000000 000');

writeln(' 0000 ');

writeln(' 000 ');

writeln(' 000 000 ');

writeln(' 00000 000 ');

writeln(' 000 000 ');

writeln(' 000 000 ');

writeln(' 0000 0000 ');

writeln(' 00000 00000 ');

writeln(' 000000 000000 ');

writeln(' 00000000 000000 ');

writeln(' 00000000000000000000 ');

writeln(' 0000000000000000 ');

writeln(' 00000000 ');

writeln();

end.

begin

writeln('.•´ ¯ `•.¸¸.•´ ¯ `•.¸¸.> < > ');

writeln('¯ `•.¸¸.> < > ¯ `•.¸¸.> < > ');

writeln();

writeln('¯ `•.¸¸.> < > ¯ `•.¸¸.> < > ');

writeln('.•´ ¯ `•.¸¸.•´ ¯ `•.¸¸.> < > ');

writeln();

end.

Gravetalia
Gravetalia
4,7(52 оценок)

1 гб или по длиннее 1гегабайт извените что много пишу нон нада чтобы там было 20 букв

Популярно: Информатика