Дано натуральное
число. Верно ли, что в его записи встречается цифра 3?
- 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.
- Если я не ошибаюсь, то натуральные числа идут от 1-до бесконечности! А 0 это не натуральное! Натуральное число можно узнать при счете например яблок!0 яблок значит их совсем нету а если 2 яблока уже есть!