Question

как сделать объемную букву Р в Паскале АВС

Answer 1

program obiemnayaP;begin ');writeln('  /||||||||||||||');  writeln('  /||||||||||||||');  writeln('  /||||-----||||');writeln('  /||||     ||||');writeln('  /||||     ||||');writeln('  /||||||||||||||');writeln('  /||||||||||||||');writeln('  /||||---------');writeln('  /||||');writeln('  /||||');end.

Answer 2

Сорян, в центре P пробелов не добавил. Вот так точно правильно:

Answer 3

writeln(' /||||||||||||||');
writeln(' /||||||||||||||');
writeln(' /||||-----||||');
writeln(' /|||| ||||');
writeln(' /|||| ||||');
writeln(' /||||||||||||||');
writeln(' /||||||||||||||');
writeln(' /||||---------');
writeln(' /||||');
writeln(' /||||');