Question

Ребят , нужна написанная программа какого - нибудь рисунка на турбо Паскале ( дом и дерево не нужно) Спасайте

Answer 1

Делал в PascalABC, но в Turbo тоже должно работать. Если не работает, попробуйте перед "End." вставить "Readln".

Program Kisa;
Begin     
 Writeln('___________________$$____________$$');      Writeln('__________________$___$________$___$');      Writeln('__________________$_____$$$$$$_____$');     Writeln('__________________$____sss___sss____$');      Writeln('__________________$____іі_____іі_____$');      Writeln('_________________$_______$$$________$');      Writeln('_____$$$$$$$$_____$_______$________$');      Writeln('___$$________$_______$$_________$$');      Writeln('____$_________$_____$___$$$$$$___$');      Writeln('_______$______$____$__$________$__$');      Writeln('_______$_____$____$__$__________$__$');      Writeln('______$____$___$$$$__$__________$__$$$$');      Writeln('_____$___$____$____$__$________$___$___$');      Writeln('_____$__$_____$____$__$________$__$____$');      Writeln('____$___$______$____$__$____$_$__$____$');      Writeln('______$__$______$____$___$_$_____$___$');      Writeln('_______$___$$$$$_$___$___$_$____$___$');      Writeln('__________$$$$$_$____$____$_____$____$');      Writeln('________________$$$_$_____$______$_$$$');      Writeln('_____________________$$$$___$$$$$');
End.