Помогите с паскалем пожалуйста!
Есть ли 3, 6, 9 в пятизначном?
Дано пятизначное число. Напишите программу, которая определит ответы на следующие вопросы:
Входит ли в данное число цифра 3?
Входит ли в данное число цифра 6?
Входит ли в данное число цифра 9?
Входят ли в данное число все три цифры одновременно?
Формат входных данных
Целое пятизначное положительное число (10000 ≤ N ≤ 99999)
Формат выходных данных
4 строки, на каждой из них ответ на соответствующий вопрос: "YES" если условие выполняется, "NO" в обратном случае.
Примеры
входные данные................... выходные данные
13690
.................................................YES
.................................................YES
.................................................YES
.................................................YES
13600
.................................................YES
.................................................YES
.................................................NO
.................................................NO
Есть ли 3, 6, 9 в пятизначном?
Дано пятизначное число. Напишите программу, которая определит ответы на следующие вопросы:
Входит ли в данное число цифра 3?
Входит ли в данное число цифра 6?
Входит ли в данное число цифра 9?
Входят ли в данное число все три цифры одновременно?
Формат входных данных
Целое пятизначное положительное число (10000 ≤ N ≤ 99999)
Формат выходных данных
4 строки, на каждой из них ответ на соответствующий вопрос: "YES" если условие выполняется, "NO" в обратном случае.
Примеры
входные данные................... выходные данные
13690
.................................................YES
.................................................YES
.................................................YES
.................................................YES
13600
.................................................YES
.................................................YES
.................................................NO
.................................................NO
More Questions From This User See All
Answers & Comments
Verified answer
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