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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
