Program Kratn; Uses CRT; Var N: Word; F_Zero, F_Div: Boolean; k: byte; t: Word; Begin ClrScr; Write('Введите число: '); Readln(N); t := N; Repeat k := t mod 10; {Последняя цифра числа} If (k = 0) then Begin F_Zero := True; Break; End; t := t div 10; {Кроме последней цифры} If (n mod k <> 0) then Begin F_Div := True; Break; End; Until (t < 10); If (F_Zero) then Writeln('Число содержит нуль') else If (F_Div) then Writeln('Ошибка кратности') else Writeln('Число кратно своим цифрам'); ReadKey; End.
