Поясните задание пожалуйста
Дана задача на на циклы REPEAT и WHILE, это все ее условие.
Если я не ошибаюсь, то натуральные числа идут от 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.
Спасибо)