Дано натуральное

число. Верно ли, что в его записи встречается цифра 3?

Если я не ошибаюсь, то натуральные числа идут от 1-до бесконечности! А 0 это не натуральное! Натуральное число можно узнать при счете например яблок!0 яблок значит их совсем нету а если 2 яблока уже есть!

Program p;

var x:longint;

t:boolean;

begin

Write ('Введите натуральное число, х = ') ;

Readln (x) ;

While x0 do

begin

If x mod 10 = 3 then

t:=true;

X:=x div 10;

end;

If t=true then

Writeln ('Да, встречается') else

Writeln ('Нет, не встречается') ;

end.