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

Question

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

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.

Comments

Спасибоооооо огроооооомное!!!!!!!!)))))))))♡♡♡♡♡

---

Многозначное число не ограничивается longint. var s: string;
begin
write('число: '); readln(s);
if pos('4',s)>0 then writeln('есть цифра 4')
else writeln('нет цифры 4')
end.

---

Оно вообще ничем не ограничивается. Ни типом, ни ёмкостью оперативки - ничем. Но это же не значит, что нужно использовать всё, что есть для расширения диапазона