Составьте программу вывода на экран рисунка, построенного из различных символов.Помогите плз умоляю не могу решить
Составьте программу вывода на экран рисунка, построенного из различных символов.Помогите плз умоляю не могу решить
Ответ(ы) на вопрос:
// 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, авторский персонаж
Не нашли ответ?
Похожие вопросы