Дано четырехзначное число. Определить: кратно ли произведение его цифр числу а.

Var

n, i, a:integer;

p:longint;

begin

Write ('Введите четырехзначное число: ') ; Read (n) ;

Write ('Введите число для проверки кратности: ') ; Read (a) ;

p:=1;

for i:=1 to 3 do

begin

p:=p * (n mod 10) ;

n:=n div 10

end;

p:=p*n;

if (p mod a) = 0 then Writeln ('Число кратно ', a)

else Writeln ('Число не кратно ', a)

end.

Тестовое решение:

Введите четырехзначное число: 3673

Введите число для проверки кратности: 7

Число кратно 7