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

Ответы 2

  • Спасибоооооо огроооооомное!!!!!!!!)))))))))♡♡♡♡♡
    • Автор:

      tobiepacs
    • 5 лет назад
    • 0
  • Var   A:longint;   k:byte;Begink:=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.
    • Автор:

      evavjv4
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years