Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.97/33: Рейтинг темы: голосов - 33, средняя оценка - 4.97
makona18
0 / 0 / 0
Регистрация: 17.10.2010
Сообщений: 5
1

Определить встречаются ли одинаковые цифры в числе.

26.02.2011, 19:55. Просмотров 6163. Ответов 1
Метки нет (Все метки)

С клавиатуры вводится четырёхзначное число, надо определить есть ли в нём одинаковые числа, не используя массивы и циклы, и если есть, то вывести на экран 1, иначе любое другое число.
Я разбила число на отдельные цифры, а как их сравнить не знаю.
Вот что у меня получилось на данный момент
http://picthost.ru/images/da757qnd1skt93xs2hk.jpg
Буду признательна за подсказку^_^
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2011, 19:55
Ответы с готовыми решениями:

Определить, есть ли в числе одинаковые цифры
Задание такое: в массиве найти сумму всех нечетных чисел и вывести это число,...

Определить, есть ли в числе рядом стоящие одинаковые цифры
Уважаемые программисты,нуждаюсь в помощи....в общем задание выглядит так.... ...

Есть ли в числе 2 одинаковые цифры
Ввести целое число и определить, верно ли, что в его записи есть две одинаковые...

одинаковые цифры в трехзначном числе
Добрый день. В задании по а) есть ли среди цифр числа одинаковые. б) все ли...

Верно ли, что в данном числе встречаются цифры А и В
1)Дано натуральное целое число, верно ли, что в данном числе встречаются цифры...

1
Puporev
Модератор
54677 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,341
26.02.2011, 20:27 2
Лучший ответ Сообщение было отмечено makona18 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var n:integer;
    a,b,c,d:byte;
begin
clrscr;
repeat
write('Введите 4х-значное число n=');
readln(n);
until (n>999)and(n<=9999);
a:=n div 1000;
b:=n div 100 mod 10;
c:=n div 10 mod 10;
d:=n mod 10;
if(a=b)or(a=c)or(a=d)
or(b=c)or(b=d)or(c=d) then write('Есть одинаковые цифры')
else write('Нет одинаковых цифр');
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.02.2011, 20:27

Есть ли одинаковые цифры во введенном числе
проверить есть ли одинаковые цифры в введенном числе, нужно составить с помощью...

Выведите на экран те цифры которые встречаются только в одном числе
Тема &quot;Множества&quot;. С клавиатуры вводятся положительные числа до тех пор, пока...

Найти n! и проверить, встречаются ли в записи этого числа две рядом стоящие одинаковые цифры
Найти n! и проверить, встречаются ли в записи этого числа две рядом стоящие...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru