Переведите на алгоритмический язык

👇

Открыть все ответы

Ответ:

Mrmr56

18.07.2020

// 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.

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

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

4,5(46 оценок)

Ответ:

mihailgrand

18.07.2020

//Мона Лиза
//Pascal ABC.NET 3.1 сборка 1256

begin
writeln('i`it)v|(//s+)`(-\\/[email protected]dmKK(c!(/-[2=/cct/!-v\!_L\)|',chr(10),chr(13),']-!/(!-)\L\)v|c5(!,[email protected]dK/]!c\\\v|i\/cT\v((c-',chr(10),chr(13),']!`/v\//(-|t\[email protected][email protected]bLt\\|)c/2-vv)/it\.',chr(10),chr(13),'--/-,\,\v\,|)/v/[email protected][email protected]bK!v!-( )-!.[/cT',chr(10),chr(13),'.//.\--.--|-/c([email protected][email protected]s-||/v!c\.',chr(10),chr(13),'-,-|\`||\-\/[email protected][email protected]b.),`-,-/c-`i',chr(10),chr(13),'!,\[email protected]P[+~**[email protected]b/./`c-/.\7-',chr(10),chr(13),'--..-- -/,[email protected]@@*P!` \[email protected]i.\\..\.c',chr(10),chr(13),',`,`\.-,[email protected]@5`- -- `[email protected][email protected]_\-|-\c-',chr(10),chr(13),'. -.,`/[email protected]@K- ` - )[email protected]c/',chr(10),chr(13),'- `- [email protected]@Ai [email protected]b! \`|-`',chr(10),chr(13),' `-,.- [email protected]@@[, [email protected][/-,-/.',chr(10),chr(13),'-` .-/[email protected]@@A) -)[email protected]\. _\',chr(10),chr(13),'- ` ,[email protected]@@! .-!([email protected][(/s[.',chr(10),chr(13),' - i\[email protected]@@Z- . ! [email protected])(4)`',chr(10),chr(13),' , -|[email protected]@@@!\ . ` |[email protected]XNYZ-',chr(10),chr(13),' [email protected]@@@A-, . `)([email protected]D)8A[',chr(10),chr(13),' )[email protected]\ ,-.-/[email protected][email protected][',chr(10),chr(13),' ]][email protected]@@@d|- ,ii.c,, [email protected][email protected](@8[',chr(10),chr(13),' [email protected]( .i!vGG_ [email protected]@[email protected][email protected][email protected]',chr(10),chr(13),' )/[email protected]@@[email protected]@dP~~~T4( [email protected]@7`[email protected][email protected]@@[email protected]LM8[',chr(10),chr(13),'\[email protected][email protected]@d*@@@bVi [email protected]*ff/\[email protected][email protected][',chr(10),chr(13),',\[email protected]@@[email protected]~t` !*~!`. -MA) .~..).` `,[email protected]AKb[',chr(10),chr(13),',`[email protected] -`,,gvZ`` A//- ..c\+\` i][email protected][email protected]8[',chr(10),chr(13),'i\@[email protected]@@@D \!. [email protected]@@[email protected][email protected]@@@8M[',chr(10),chr(13),'[email protected] .!- .-)[email protected]M8i',chr(10),chr(13),'[email protected]- v , ,\[email protected][email protected]Z2|',chr(10),chr(13),'@[email protected]@@@[email protected][ // [email protected]@@[email protected]@[email protected]@[email protected]@@[email protected]@@bmi',chr(10),chr(13),'@@[email protected]@[email protected]@@P- -=/. /[email protected][email protected]@@[email protected]@[',chr(10),chr(13),'@[email protected]@@[email protected]@@@\- . _)g2i -(([email protected][email protected]@@@[email protected]@[email protected]K[',chr(10),chr(13),'@@@[email protected]@[email protected]@)i .c,,[email protected]@bK )X)[email protected]@@[email protected]@@[email protected]@[email protected][email protected][',chr(10),chr(13),'@[email protected][email protected]/i- [email protected]@@@Mc .,\c=)[email protected]@[email protected]@@[email protected][email protected]@A[',chr(10),chr(13),'[email protected](.c\` PPK((,i]v|-\-v)[email protected][email protected]@[email protected][',chr(10),chr(13),'@@[email protected]@[email protected]@[email protected]!--c)s_, ,([email protected]\`- .-N]/[email protected][email protected]@@[email protected][email protected][',chr(10),chr(13),'@@[email protected]@@[email protected]@@@/- !''~~Vff*N5f -` -,\))[email protected][email protected]@[email protected]@@[email protected]@@@[',chr(10),chr(13),'@[email protected]@@[email protected]2-- ,,_JJ/i)/- |/v)[email protected][email protected][email protected][',chr(10),chr(13),'@@[email protected]@@@[email protected]d!, .VV\)\\)\7(-)[email protected]@[email protected]@@[email protected][email protected][',chr(10),chr(13),'[email protected]@@@[email protected]@[email protected]@@@[email protected] `-\\/v)[email protected]@[email protected]@@[email protected]@@[email protected]@[email protected]@@[email protected]@[email protected][',chr(10),chr(13),'[email protected]@[email protected]m -)!/[email protected]@@[email protected][email protected][email protected]@@[email protected]@@[',chr(10),chr(13),'[email protected]@[email protected][email protected]@[email protected]Ks ,-/[email protected]@[email protected][email protected][email protected]@@[email protected]@[email protected][',chr(10),chr(13),'[email protected]@@[email protected]@[email protected][email protected]@@[email protected]@[email protected]@@@[email protected]@@@[email protected][email protected][',chr(10),chr(13),')[email protected]@@[email protected]@@[email protected][email protected]@[email protected]@[email protected]@[email protected][email protected]@[email protected]@[email protected]@@@[email protected]@[email protected]@@@[',chr(10),chr(13),'([email protected]@@[email protected]@[email protected]@@@[email protected]@@@[email protected]@@[email protected][email protected]@@@[email protected]@[email protected]M[',chr(10),chr(13),'[email protected]@[email protected]@@[email protected]@@@[email protected][email protected]@@/[email protected]@[email protected]@@[email protected]@[email protected]@[email protected]@[email protected][email protected][',chr(10),chr(13),'M/[email protected]@@[email protected]@@[email protected][|t*[email protected][email protected]@[email protected]@@@[email protected][email protected]@@[email protected][',chr(10),chr(13),'[email protected][email protected]D.\.([email protected]@[email protected][email protected]@[',chr(10),chr(13),'[email protected]@[email protected][email protected]..-!/))ZK5AK4)AY(/XY/[email protected]@@[email protected]@@[email protected]@@[email protected]@@@[',chr(10),chr(13),'[email protected]@[email protected]@[email protected]@@[email protected]L,-,\!]]\X(5)Z/7c\\t5/[email protected][email protected][',chr(10),chr(13),'[email protected]@@[email protected]@@[email protected]@[email protected]KDLt! !,-|t.(-\\!,\/,\[email protected]@@[email protected]@@@[email protected]@@[',chr(10),chr(13));
end.

//Во вложении I3artle, авторский персонаж

4,5(1 оценок)

Это интересно:

Образование-и-коммуникации

09.04.2021

Как нарисовать автопортрет: советы для начинающих...

Компьютеры-и-электроника

14.07.2020

Превращаем реальность в виртуальность: как играть в Sims 4?...

03.03.2020

Как собрать обед для ребенка: советы от нутрициологов...

Транспорт

04.06.2020