Цитата:
Сообщение от AlexZir
Скорее всего там требовалось реализовать проверку с использованием длинных целых и целочисленного деления
|
Ой, да пожалуйста — тоже мне, проблема века!
Код:
Var
N:LongInt;
D,A:Byte;
Begin
Write('N = ');
Readln(N);
Write('D = ');
Readln(D);
repeat
A:=N mod 10;
if A<>D then N:=N div 10;
until (A=D) or (N=0);
if A=D then Writeln('Yes!') else Writeln('No!');
Readln
End.