Задать вопрос
21 мая, 04:20

Дано многозначное число. Проверить, есть ли среди цифр данного числа цифра 4.

+5
Ответы (1)
  1. 21 мая, 07:18
    0
    Var

    A:longint;

    k:byte;

    Begin

    k:=0;

    Write ('Введите число: ') ; ReadLn (A) ;

    A:=Abs (A) ;

    While A > 0 do

    Begin

    if A mod 10 = 4 then k:=1;

    A:=A div 10

    End;

    if k=0 then WriteLn ('В данном числе нет цифры 4')

    else WriteLn ('В данном числе есть цифра 4') ;

    End.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дано многозначное число. Проверить, есть ли среди цифр данного числа цифра 4. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы