profile
Опубликовано 6 лет назад по предмету Информатика от maxdexternz

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

  1. Ответ
    Ответ дан KirikoTZ

    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('.•´ ¯ `•.¸¸.•´ ¯ `•.¸¸.><((((o> ');

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

    writeln();

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

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

    writeln();

    end.

    1. Ответ
      Ответ дан KirikoTZ
      Блин, первый не про-пробелился.
    2. Ответ
      Ответ дан KirikoTZ
      Если удалишь мое решение, я нормально могу перезалить
    3. Ответ
      Ответ дан maxdexternz
      окей
    4. Ответ
      Ответ дан maxdexternz
      Просто новый вопрос задам, ищи!) Спасибо)
Самые новые вопросы