Question

напишите программу, которая,используя процедуру writeln, изобразит на экране домик. Подпишите домик своей фамилией. Фамилию запросите при помощи оператора ввода.

Answer 1

program Task28;
uses crt;
Var  n:string;    
Begin 
write('Zadaite slovo dlya doma= '); readln(n);
{в центр можно вписать 8 символов и домик будет тогда целый} 
writeln('    ___/___'); 
writeln('    __/_____'); 
writeln('   __/_____'); 
writeln(' __/______'); 
writeln('__/________'); 
writeln(' _|________|_'); 
writeln(' _|________|_'); 
writeln(' _|' , n ,      '|_'); 
writeln(' _|________|_');  Readkey;End.

f4fbff7ee6d8a85c1ff86d30bb28a7c2.pas

Answer 2

можно еще вопрос

Answer 3

напишите там где вы ответили

Answer 4

напишите программу, которая запрашивает значения двух переменных и выводит их разность. Приглашение к вводу каждого числа произведите в отдельных строках. Вывод результата сопроводите пояснениями. Пожалуйста