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.
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
