• Решить на языке паскаль: Верно ли, что в числе есть цифра 5

Ответы 1

  • var a,n:integer;begin write('Введите число: '); readln(n); repeat a:=n mod 10; n:=n div 10; until (n=0) or (a=5); if a=5 then write('В этом числе есть цифра 5') else write('В этом числе нет цифры пять')end.

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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