47. дано целое четырехзначное положительное число n. составьте программу, которая определяет, какая из его цифр больше-вторая или последняя

48 дано целое четырехзначное положительное число n. составьте программу, которая определяет, кратно ли пяти произведение его цифр

var

n:integer;

begin

write ('n = ') ;

readln (n) ;

if (n mod 10) > ((n div 100) mod 10) then

writeln ('Последняя больше второй')

else

if (n mod 10) < ((n div 100) mod 10) then

writeln ('Вторая больше последней')

else

writeln ('Они равны') ;

readln;

end.

/ / Вторая программа

var

n, Pr:integer;

begin

write ('n = ') ;

readln (n) ;

Pr : = 1;

while n > 0 do

begin

Pr : = Pr * (n mod 10) ;

n : = n div 10;

end;

writeln ('Pr = ', Pr) ;

if Pr mod 5 = 0 then

writeln ('Кратно')

else

writeln ('Некратно') ;

readln;

end.