Написать программу в бейсике

👇

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

Ответ:

Mrmr56

22.01.2022

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

22.01.2022

//Мона Лиза
//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 оценок)

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

Стиль-и-уход-за-собой

27.05.2021

Как предотвратить врастание волос после эпиляции...

Кулинария-и-гостеприимство

28.09.2021

Шаг за шагом: Как пользоваться штопором и открыть бутылку вина...

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

09.10.2022

Как сделать стекло в игре Minecraft: подробный гайд...

Здоровье