дано трехзначное число. определите входят ли в него цыфра ?
5-9 класс
|
var a,b:integer;
begin
write('Введите число ');
readln(a);
write('Введите цифру ');
readln(b);
if (a mod 10 <> b) and (a div 100 <> b) and ((a mod 100) div 10 <> b) then writeln('Цифры нету')
else writeln('Цифра есть');
end.
Пишу на QBasic
CLS
INPUT A
INPUT X
Q= A MOD 10
W=A DIV 100
E=((A MOD 100)-Q)/10
IF Q=X OR W=X OR E=X THEN
PRINT "Входит"
ELSE
PRINT "Не входит"
END IF
Другие вопросы из категории
1.Является элементом множества
2.Входит в состав
3.Является разновидностью
4.Является причиной
произвольное число X четным.
2. Написать программу, определяющую, является ли целое число T делителем целого числа X.
3. Для произвольного числа A написать программу, возводящую его в квадрат, если число отрицательное, извлекающую из A квадратный корень, если положительное, оставляющее A без изменения, если A=0
за то же время через другое соединение со скоростью 768 бит в секунду. В ответе укажите одно число – размер файла в Кбайт.
Читайте также
четыре целых числа. Вывести на экран минимальное из них.
3.Даны три вещественных числа a, b и с - коэффициенты уравнения ax^2+bx+c. Найдите решение этого уравнения или сообщите, что решения не существует.
1) есть ли среди цифр заданного трехзначного числа одинаковые;
Пример входных данных
123 нет
121 да
222 да
2) является ли число '' перевертышем" , т.е. числом , десятичная запись которого читается одинаково слева направо и справа налево.
Пример входных данных
122 нет
121 перевертыш
222 перевертыш
Пожалуйста с примером!!!
Заранее большое спасибо