Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var a,a1,b,c:longint;
begin
write(введите четырёхзначное число=> );
readln(a);
a1:=a;
while (a<>0) 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.