сервис вопросов и ответовДано трёхзначное число. Напишите программу, которая определяет: есть ли среди цифр заданного целого трёхзначного числа одинаковые;
5-9 класс|
|
Natmeleshina90
10 мая 2014 г., 0:40:24 (9 лет назад)
Karakhanian
10 мая 2014 г., 1:52:09 (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
пример выходных данных: нет; да; да
б) является ли число "перевёртышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.
Помогите по программе paskal : 1.дано целое число.напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
Дано трехзначное число. напишите программу, которая определяет:
1) есть ли среди цифр заданного трехзначного числа одинаковые;
Пример входных данных
123 нет
121 да
222 да
2) является ли число '' перевертышем" , т.е. числом , десятичная запись которого читается одинаково слева направо и справа налево.
Пример входных данных
122 нет
121 перевертыш
222 перевертыш
Пожалуйста с примером!!!
Заранее большое спасибо
Вы находитесь на странице вопроса "Дано трёхзначное число. Напишите программу, которая определяет: есть ли среди цифр заданного целого трёхзначного числа одинаковые;", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.