Дано трёхзначное число. Напишите программу, которая определяет: есть ли среди цифр заданного целого трёхзначного числа одинаковые;
5-9 класс
|
var
a : integer;
begin
write ('A = ');
readln (a);
if (a > 999) or (a < 100) then
writeln ('Число не трехзначное')
else if (a mod 10 = a div 100) or (a mod 10 = a mod 100 div 10) or
(a div 100 = a mod 100 div 10) then
writeln ('Да, есть')
else
writeln ('Нет, нету');
readln;
end.
Другие вопросы из категории
Зрительная ? ?
Звуковая ? ?
Вкусовая ? ?
Обонятельная ? ?
Осязательная ? ?
Читайте также
а) есть ли среди цифр заданного целого трёхзначного числа одинаковые;
пример входных данных: 123; 121; 222
пример выходных данных: нет; да; да
б) является ли число "перевёртышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
1) есть ли среди цифр заданного трехзначного числа одинаковые;
Пример входных данных
123 нет
121 да
222 да
2) является ли число '' перевертышем" , т.е. числом , десятичная запись которого читается одинаково слева направо и справа налево.
Пример входных данных
122 нет
121 перевертыш
222 перевертыш
Пожалуйста с примером!!!
Заранее большое спасибо