Если я не ошибаюсь, то натуральные числа идут от 1-до бесконечности! А 0 это не натуральное! Натуральное число можно узнать при счете например яблок!0 яблок значит их совсем нету а если 2 яблока уже есть!
Program p; var x:longint; t:boolean; begin Write('Введите натуральное число, х = '); Readln(x); While x<>0 do begin If x mod 10 = 3 then t:=true; X:=x div 10; end; If t=true then Writeln('Да, встречается') else Writeln('Нет, не встречается'); end.
var x:longint;
t:boolean;
begin
Write('Введите натуральное число, х = ');
Readln(x);
While x<>0 do
begin
If x mod 10 = 3 then
t:=true;
X:=x div 10;
end;
If t=true then
Writeln('Да, встречается') else
Writeln('Нет, не встречается');
end.