Дано четырёхзначное число N.Определить делится ли это число на все свои цифры?
Дано четырёхзначное число 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.
Не нашли ответ?
Похожие вопросы