1)дано двузначное число. определить: разность первой и второй цифры. 2)дано трехзначное число. определить: больше ли числа а(вводится с клавиатуры) произведение его цифр. паскаль написать программу блок схему
Блок-схемы - в прилагаемом файле. 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.
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