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

0 голосов
75 просмотров
Дано натуральное
число. Верно ли, что в его записи встречается цифра 3?

спросил от (12 баллов) в категории Информатика
оставил комментарий от Начинающий (696 баллов)

Поясните задание пожалуйста

оставил комментарий от (12 баллов)

Дана задача на на циклы REPEAT и WHILE, это все ее условие.

2 Ответы

0 голосов
ответил от (18 баллов)

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

0 голосов
ответил от Начинающий (696 баллов)

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.

оставил комментарий от (12 баллов)

Спасибо)

...