Question

1)Дано двузначное число. Определить:разность первой и второй цифры.
2)Дано трехзначное число. Определить: больше ли числа А(вводится с клавиатуры) произведение его цифр.

паскаль
написать программу
блок схему
спасибо

Answer 1

Блок-схемы - в прилагаемом файле.
1.
var a,a1,a2:integer;
begin
readln(a);
a1:=a div 10;
a2:=a mod 10;
writeln(a1,'-',a2,' = ',a1-a2);
end.

Пример:
49
4-9 = -5

2.
var n,n1,n2,n3,p,a:integer;
begin
readln(n,a);
n1:=n div 100;
n2:=n div 10 mod 10;
n3:=n mod 10;
p:=n1*n2*n3;
if p>a then writeln(p,' > ',a)
else writeln(p,' <= ',a);
end.

Пример:
284 30
64 > 30