Дано четырёхзначное число N. Определить делится ли это число на все свои цифры?

Question

Информатика

Савелий

28 ноября, 05:36

Дано четырёхзначное число N. Определить делится ли это число на все свои цифры?

+3

Ответы (1)

Знаете ответ на вопрос?

Таисья · Answer 1

Var a, a1, b, c:longint;

begin

write ('введите четырёхзначное число=> ') ;

readln (a) ;

a1:=a;

while (a0) do begin

b:=a mod 10;

if (a1 mod b=0) then c:=c+1;

a:=a div 10;

end;

if (c=4) then writeln ('делится')

else writeln ('не делится') ;

end.