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

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

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

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