Помогите с паскалем пожалуйста!Есть ли 3, 6, 9 в пятизначном? Дано пятизначное

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

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


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

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

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

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

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

Задать свой вопрос
1 ответ
Var a,b,i:integer; f3,f6,f9:boolean;
begin
readln(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.

Пример:
13600
YES
YES
NO
NO
Юлия
Спасибо огромное))
Егор Шморин
Пожалуйста.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт