1)Напиши программу, которая запрашивает значение двух переменных и выводит их разность. Приглашение к вводу каждого числа произведите в отдельных строках. Вывод результата сопроводите пояснениями
2)Напиши программу, которая, используя, процедуру writeln, изоброзит на экране домик. Подпишите домик своей фамилией. Фамилию запросите при помощи оператора ввода.
ПОМОГИТЕ ПЖ ДАМ 100 БАЛЛОВ
Ответы
Ответ дал:
0
1)
var a,b,r:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
r:=a-b;
writeln(a,'-',b,' = ',r);
end.
Пример:
a = 21
b = 15
21-15 = 6
2)
var fam:string;
begin
write('Введите фамилию: ');
readln(fam);
writeln(' *');
writeln(' ***');
writeln(' *****');
writeln(' *******');
writeln('*********');
writeln('*** ***');
writeln('*** ***');
writeln('*** ***');
writeln('*********');
writeln('*********');
writeln;
writeln(' ',fam);
end.
Результат:
Введите фамилию: Master
*
***
*****
*******
*********
*** ***
*** ***
*** ***
*********
*********
Master
var a,b,r:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
r:=a-b;
writeln(a,'-',b,' = ',r);
end.
Пример:
a = 21
b = 15
21-15 = 6
2)
var fam:string;
begin
write('Введите фамилию: ');
readln(fam);
writeln(' *');
writeln(' ***');
writeln(' *****');
writeln(' *******');
writeln('*********');
writeln('*** ***');
writeln('*** ***');
writeln('*** ***');
writeln('*********');
writeln('*********');
writeln;
writeln(' ',fam);
end.
Результат:
Введите фамилию: Master
*
***
*****
*******
*********
*** ***
*** ***
*** ***
*********
*********
Master
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад