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

выяснить есть ли в трёхзначном числе одинаковые цифры

10-11 класс

Mihaililin123 05 дек. 2013 г., 13:12:36 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Supernikitka12
05 дек. 2013 г., 14:47:10 (10 лет назад)

пишу на паскале

program tralala;

var a,b,c,n:integer;

begin

readln(n);

a:=n div 100;

b:=n div 10 mod 10;

c:=n mod 10;

if (a=b) or (a=c) or (b=c) then writeln (Есть');

else write('Нету');

end.

+ 0 -
Mars678
05 дек. 2013 г., 17:35:45 (10 лет назад)

var

s:string[3];

begin

readln(s);

if (s[1]=s[2]) or (s[3]=s[1]) or (s[3]=s[2]) then

writeln('Есть') else

writeln('Нет');

end;

Ответить

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

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

Нужно решить задачу в Паскале, условие таково:

Пользователь вводит число заранее неизвестное.
Выяснить есть ли в этом числе хотя бы две одинаковые цифры.

Известна математическая задача: " Существуют ли два последовательных натуральных числа, сумма цифр каждого из которых делится на 7" А Вы попытайтесь

написать программу, которая отвечает на вопрос " существуют ли два последовательных числа, не превосходящих N, сумма цифр каждого из которых делится на k?"

Входные данные: Два числа N(1<=N<=10000000000),k (1<=k<=100)
Выходные данные: Программа выводит два таких числа, если они существуют,"NO"- если нет.

Известна математическая задача: "Существуют ли два последовательных натуральных числа, сумма цифр каждого из которых делится на 7?" Напишите программу,

которая отвечает на вопрос: "Существуют ли два последовательных числа, не превосходящих N, сумма цифр каждого из которых делится на k?"
Входные данные. Два числа N (1 \leq N \leq 10000000000), k (1 \leq k \leq 100)
Выходные данные. Программа выводит два таких числа, если они существуют, "NO" - если нет.



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