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

Составьте программу вывода на экран рисунка, построенного из различных символов.Помогите плз умоляю не могу решить
Гость
Ответ(ы) на вопрос:
Гость
// 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.
Гость
//Мона Лиза //Pascal ABC.NET 3.1 сборка 1256 begin writeln('i`it)v|[[[[(//s+)`(-\\/JJgbdd@@@@@@@dmKK(c!(/-[2=/cct/!-v\!_L\)|',chr(10),chr(13),']-!/(!-)\L\)v|c5(!,!Ldd@@@@@@@@@@@@@@@@@@@dK/]!c\\\v|i\/cT\v((c-',chr(10),chr(13),']!`/v\//(-|t\VvcL!m@@@@@M@@@@@@@@@@@@@@@@@@@@bLt\\|)c/2-vv)/it\.',chr(10),chr(13),'--/-,\,\v\,|)/v/m@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@bK!v!-( )-!.[/cT',chr(10),chr(13),'.//.\--.--|-/c(e@@@@@@@DD@@@@@@@@@@@@@@@@@@@@@@@@@@s\\\\-||/v!c\.',chr(10),chr(13),'-,-|\`||\-\/id@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@b.),`-,-/c-`i',chr(10),chr(13),'!,\!-!-!.!-!d@@@@@@@P[+~**AAA@@@@@@@@@@@@@@@@@@@@@@@b/./`c-/.\7-',chr(10),chr(13),'--..-- -/,id@@@*P!`          \.Z8@@@@@@@@@@@@@@@@@@@@@i.\\..\.c',chr(10),chr(13),',`,`\.-,-J@@5`-           -- `-iYA@@@@@@@@@@b@@@@@@@@@_\-|-\c-',chr(10),chr(13),'. -.,`/.G@@K- `               - )7KM@@@@@@@@@@@@@@@@@@@c-----/',chr(10),chr(13),'- `-  --i@@Ai                    -!ZZ@@@@@@@@@@@@@@@@@@@b! \`|-`',chr(10),chr(13),' `-,.- G@@@[,                    ..D8K@@@@@@@@@@@@@@@@@@@[/-,-/.',chr(10),chr(13),'-` .-/v@@@A)                      -)ZdMd@@@@@@@@@@@@@@@@@@\. _\',chr(10),chr(13),'- ` ,iVJ@@@!                     .-!(K5K@@@@@@@@@@@@@@@@@@[(/s[.',chr(10),chr(13),'  - i\G@@@Z-                    . ! -i55ZZ@@@@@@@@@@@@@@@@@)(4)`',chr(10),chr(13),' , -|b@@@@!\                     .  ` |-tYG@@@@@@@@@@@@@@@@XNYZ-',chr(10),chr(13),'   tt@@@@A-,                        .  `)(d@@@@@@@@@@@@@@@@D)8A[',chr(10),chr(13),'   )8@@@@@\                         ,-.-/Kd@@@@@@@@@@@@@@@@@KD@[',chr(10),chr(13),'  ]]Z@@@@d|-              ,ii.c,, -.icLZKK@@@@@@8@K@@@@@@@@@(@8[',chr(10),chr(13),'  KN8@@@@@( .i!vGG_      J4Kb8ZKb@bbK@d@88@@@@@@@b@@@@@@@@@@dK@-',chr(10),chr(13),' )/8K@@@K@b@dP~~~T4(    Jd@@7`___s@M@@@@MM8d@@@d@@@@@@@@@@@@LM8[',chr(10),chr(13),'\!48@K@@@@8@@d*@@@bVi   bAKLY~~@@@@@@*ff/\NM8@@@@@@@@@@@@@@@db@[',chr(10),chr(13),',\?Kb@@@d@.~t` !*~!`.  -MA)    .~..).` `,.K@@@@@@@@@@@@@@@@@AKb[',chr(10),chr(13),',`8M@@@@@@ -`,,gvZ``    A//-  ..c\+\`    i]d@@@@@@M@@@@@@@@@@@8[',chr(10),chr(13),'i\@8@K@@@D              \!.             !iZ8@@@8A@@@@@8d@b@@@8M[',chr(10),chr(13),'e8d5@@@@@@             .!-             .-)8@@@@@@@@@@@@@@@@@@M8i',chr(10),chr(13),'8dZ8@M@@@@-             v  ,          ,\tK@@@@@@@@@@@@A@@@@@@Z2|',chr(10),chr(13),'@b@AK@@@b@[              //           cctbA@@@AK@@d@@d@@@K@@@bmi',chr(10),chr(13),'@@8@M@8@@@P-            -=/.         /iD8d@@@@@@@@@@@@@@A@@@d@@[',chr(10),chr(13),'@8@@@MA@@@@\-      .   _)g2i        -((dKK@@@@@d@@@@d@@K@@@@@@K[',chr(10),chr(13),'@@@bAK@@K@@)i     .c,,Kb@@bK       )X)Kb@M@@d@@@Mb@@A@d@@@@@@8@[',chr(10),chr(13),'@K@b@@@@A@AA/i-     ~M@@@@Mc    .,\c=)D8d@@b@@@d@@@@@@@@@@8d@@A[',chr(10),chr(13),'@@@@Mb@@@@@@(.c\`     PPK((,i]v|-\-v)8XNAdMK@@@@@@@b@@MK@A@@@@@[',chr(10),chr(13),'@@8@@MK@d@A@L!--c)s_, ,(ZsbLb@\`- .-N]/KM@@@@@@@d@@@A@@@@@@@@d@[',chr(10),chr(13),'@@Kb@@@K@b@@@/-  !''~~Vff*N5f -` -,\))KK@@@@@@@MK@@d@@@M8d@b@@@[',chr(10),chr(13),'@b@@@KAK@@@@@@2--    ,,_JJ/i)/- |/v)NK@8d@@@@@@@@@@8@@@@@@@@M@K[',chr(10),chr(13),'@@8d@K@@@b@@@@@d!,   .VV\)\\)\7(-)4Jb@8@A@@@K@d@@@@@@@8@@@@@@@@[',chr(10),chr(13),'M@@@@8@@K@Kb@@@d@v.       `-\\/v)88b@M@A@K@@M@@@A@@M@8@@A@d@8@M[',chr(10),chr(13),'Zb@d@M@K@@@@@@@@@@m       -)!/stbb@b@@A@b@@@@@Kb@@@@@@@b@@@K@@@[',chr(10),chr(13),'K@@d@@@@@d@M@8@@@@@Ks   ,-/vJD@@8d@K@@@@@@8@@@@@@@@@@MK@@@b@@M@[',chr(10),chr(13),'tN@b@@d@d@M@@@@@@@@@@LL4JKd@A@@d@@K@@@@MK@@@@8@@@@@@@@@@@b@@@@@[',chr(10),chr(13),')NM@8b@@A@@@A@@@@@@@@@@@@@@A@@A@@8@@K@d@@@@M@@K@@K@A@@@8@@M@@@@[',chr(10),chr(13),'(tMM@@@d@@M8@@@@A@@@@A@@@A@@@@@@@@@A@@@@8b@@8d@@@@@@@@@@@@@@@@M[',chr(10),chr(13),'tNZ@@K@@@d@@@@A@@@@@8@@@/4N@@8@b@@d@@M@8@MK@M8@K@@@@@@d@@@@@@@@[',chr(10),chr(13),'M/KA8@@@MA@@@M@@@@@@@@@@[|t*Z@N@@@@8@@M8ZAZZ@M@@@A@d@@@@@K@@@d@[',chr(10),chr(13),'bYJ4M@@@@@@A@@@@@@@@@@@@D.\.(YKKZD@8dK@5A84YZ@dM@@@@@@@@@@@@d@@[',chr(10),chr(13),'K5dM8@8d@d@@@@@@@@8@@@@@@..-!/))ZK5AK4)AY(/XY/Z@@@A@@@d@@@M@@@@[',chr(10),chr(13),'Y8dNA@@AK@@d@@@b@@@@@@@@@L,-,\!]]\X(5)Z/7c\\t5/K@@@@@@@@b@@@@@@[',chr(10),chr(13),'8M8@@@A@@@A@@8@@@@@@@@@KDLt! !,-|t.(-\\!,\/,\!ZJG@@@d@Md@@@G@@@[',chr(10),chr(13)); end. //Во вложении I3artle, авторский персонаж
Не нашли ответ?
Ответить на вопрос
Похожие вопросы