47. дано целое четырехзначное положительное число n. составьте программу,которая определяет,какая из его цифр больше-вторая или последняя
48 дано целое четырехзначное положительное число n. составьте программу, которая определяет, кратно ли пяти произведение его цифр
More Questions From This User See All
Answers & Comments
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.