Register

OR

Do you already have an account? Login

Login

OR

Don't you have an account yet? Register

Newsletter

Submit to our newsletter to receive exclusive stories delivered to you inbox!

Составьте программу вывода на экран рисунка, построенного из различных символов.Помогите плз умоляю не могу решить

более месяца назад
Просмотров : 33    Ответов : 1   

Лучший ответ:

// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
  Writeln(17*'_','.888888888.');
  Writeln(17*'_','88"P""T"T888_8o');
  Writeln(13*'_','o8o_8.8"8_88o."8o_8o');
  Writeln(12*'_','88_._o88o8_8_88."8_88P"o');
  Writeln(11*'_','88_o8_88_oo.8_8 88_8_888_88');
  Writeln(11*'_','88_88_88o888"_88"__o888_88');
  Writeln(11*'_','88."8o."T88P.88"._88888_88');
  Writeln(11*'_','888."888."88P".o8_8888_888');
  Writeln(11*'_','"888o"8888oo8888_o888_o8P"');
  Writeln(12*'_','"8888. ""888P"P.888".88P');
  Writeln(13*'_','"88888ooo__888P".o888');
  Writeln(15*'_','""8P"".oooooo8888P');
  Writeln(6*'_','.oo888ooo.____8friga888P8');
  Writeln('____o88888"888"88o.__"8888"".8f___.oo888o o..');
  Writeln('_____8f88"_"88_88888._______8r".o88888888" 888.');
  Writeln('_____"8r88o.""o_88"88o.____oi".888"888" 88_"88P');
  Writeln(6*'_','T8i8C.oo._"8."8"8___og"o888_o88"_" .=888"');
  Writeln(7*'_','88g88888o_"8_8_8__.a_.8"88_8"".o888 o8P');
  Writeln(8*'_','"8a88C.o8o__8_8__8"_8_o"_...o""" 8888');
  Writeln(10*'_','"88888888_"_8_.8__8___88888888888 "');
  Writeln(12*'_','"8888888o__.8o="_o8o..o(8oo88".');
  Writeln(16*'_','"888"_88"____88FRIGA88"".');
  Writeln(20*'_','o8P_______"888"""');
  Writeln(14*'_','...oo88');
  Writeln('_____"8oo...oo888""')
end.

более месяца назад
Ваш ответ:
Комментарий должен быть минимум 20 символов
Чтобы получить баллы за ответ войди на сайт





Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров и нажмите кнопку Просмотр анимации.


Другие вопросы: