Question

напишите решение плииз

Answer 1

есть код дам на будущее при помощи паскаля можно решить любое 4 значное число и любую кратность проверить 
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