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

Question

Информатика

Арсентьич

21 мая, 04:20

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

+5

Ответы (1)

Знаете ответ на вопрос?

Васильич · Answer 1

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.