• Помогите с паскалем пожалуйста!

    Есть ли 3, 6, 9 в пятизначном?


    Дано пятизначное число. Напишите программу, которая определит ответы на следующие вопросы:

    Входит ли в данное число цифра 3?
    Входит ли в данное число цифра 6?
    Входит ли в данное число цифра 9?
    Входят ли в данное число все три цифры одновременно?
    Формат входных данных

    Целое пятизначное положительное число (10000 ≤ N ≤ 99999)
    Формат выходных данных

    4 строки, на каждой из них ответ на соответствующий вопрос: "YES" если условие выполняется, "NO" в обратном случае.
    Примеры

    входные данные................... выходные данные
    13690
    .................................................YES
    .................................................YES
    .................................................YES
    .................................................YES
    13600
    .................................................YES
    .................................................YES
    .................................................NO
    .................................................NO

Ответы 3

  • Спасибо большое))
    • Автор:

      slick
    • 5 лет назад
    • 0
  • Пожалуйста.
    • Автор:

      amarimdej
    • 5 лет назад
    • 0
  • var a,b,i:integer; f3,f6,f9:boolean;beginreadln(a);f3:=false;f6:=false;f9:=false;for i:=1 to 5 do begin b:=a mod 10; if b=3 then f3:=true; if b=6 then f6:=true; if b=9 then f9:=true; a:=a div 10; end;if f3 then writeln('YES') else writeln('NO');if f6 then writeln('YES') else writeln('NO');if f9 then writeln('YES') else writeln('NO');if f3 and f6 and f9 then writeln('YES') else writeln('NO');end.Пример:13600YESYESNONO
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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