Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Дано трёхзначное число. напишите программу которая определяет есть ли среди цифр заданного целого трёхзначного числа одинаковые

5-9 класс

380674938226 12 мая 2013 г., 4:24:48 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Samboy
12 мая 2013 г., 5:32:56 (10 лет назад)

Var a,b,c,x:integer;

begin

readln(x);

 a:=x mod 10;

x:=x div 10;

b:=x mod 10;

x:=x div 10;

c:=x mod 10;

if(a=b) or(a=c) or (b=c) then writeln('Yes')

else writeln('No');

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Ответить

Другие вопросы из категории

Напишите программу, вычисляющую какую сумму денег нужно платить за электроэнергию, если у пользователя программы запрашивается количество КВт

электроэнергии, которое было израсходовано за расчѐтный месяц, и какова плата за 1 КВт электроэнергии.

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

Составьте программу, которая выводит на экран сумму четных чисел от 30 до 60

сделайте номер 1-5 пожалуйста

Читайте также

Дано трёхзначное число. Напишите программу, которая определяет:

а) есть ли среди цифр заданного целого трёхзначного числа одинаковые;
пример входных данных: 123; 121; 222
пример выходных данных: нет; да; да
б) является ли число "перевёртышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.

Помогите по программе paskal : 1.дано целое число.напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора

результат

2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат

Дано трехзначное число. напишите программу, которая определяет:

1) есть ли среди цифр заданного трехзначного числа одинаковые;
Пример входных данных
123 нет
121 да
222 да

2) является ли число '' перевертышем" , т.е. числом , десятичная запись которого читается одинаково слева направо и справа налево.
Пример входных данных
122 нет
121 перевертыш
222 перевертыш

Пожалуйста с примером!!!
Заранее большое спасибо



Вы находитесь на странице вопроса "Дано трёхзначное число. напишите программу которая определяет есть ли среди цифр заданного целого трёхзначного числа одинаковые", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.