Паскаль для начинающи. Необходимо нарисовать набросок ( не трудный , но

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

Задать свой вопрос
1 ответ

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('. .. ..gt;lt;((((ogt; ');

writeln(' ..gt;lt;((((ogt; ..gt;lt;((((ogt; ');

writeln();

writeln(' ..gt;lt;((((ogt; ..gt;lt;((((ogt; ');

writeln('. .. ..gt;lt;((((ogt; ');

writeln();

end.

Милана Абыкина
Блин, первый не про-пробелился.
Рома Роимов
Если удалишь мое решение, я нормально могу перезалить
Анастасия Пулькова
окей
Varvara Kolodeznova
Просто новый вопрос задам, отыскивай!) Спасибо)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт