Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 1
Регистрация: 24.01.2015
Сообщений: 47
1

Число-перевертыш, три одинаковые цифры, все цифры различны

06.12.2015, 22:59. Показов 1785. Ответов 2
Метки нет (Все метки)

Дано натуральное четырехзначное число n. Определить:
1. является ли это число палиндромом (перевертышем) как, например, 2222, 0440.
2. верно ли, что число содержит три одинаковые цифры как, например, 6676, 0006.
3. верно ли, что все четыре цифры числа различны?
Спасибо.

Добавлено через 16 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var n,m,p,a,b,c,d,e,f,g,h:longint; i,k:integer;
begin
writeln('Введите число: '); readln(n);
m:=n; p:=0;
while m>0 do begin
i:=m mod 10;
p:=p*10+i;
m:=m div 10;
end;
if p=n then write('Палиндром.') else write ('Не палиндром.');
 
a:=n div 1000; b:=n div 100 mod 10; c:=n div 10 mod 10; d:=n mod 10;
if((a=b)and(a=c)and(a<>a))
or((a=b)and(a=d)and(a<>c))
or((a=c)and(a=d)and(a<>b))
or((c=b)and(c=d)and(c<>a)) then write('Число содержит три одинаковых цифры.')
else write('Число не содержит три одинаковых цифры.');
 
e:=n mod 10;
f:=(n div 10) mod 10;
g:=(n div 100) mod 10;
h:=(n div 1000) mod 10;
if(e=f)and(f=g)and(g=h) then writeln('Есть одинаковые цифры.')
else writeln('Все цифры различны.');
 
end.
Вроде что-то набросал, но второе некорректно работает. Как исправить?
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.12.2015, 22:59
Ответы с готовыми решениями:

Верно ли, что четырехзначное число содержит три одинаковые цифры.
Дано натуральное четырехзначное число n. Верно ли, что это число содержит три одинаковые цифры.

Дано натуральное число n (n < 9999). Выяснить, верно ли, что это число содержит ровно три одинаковые цифры
Дано натуральное число n (n &lt; 9999). Выяснить, верно ли, что это число содержит ровно три...

Верно ли, что данное число содержит три одинаковые цифры? Оформить процедурой
Дано натуральное n-значное число P. Верно ли, что данное число содержит три одинаковые цифры?

Дано натуральное число, меньше 1000. Верно ли, что все цифры этого числа различны?
Дано натуральное число, меньше 1000. Верно ли, что все цифры этого числа различны? заранее спасибо...

2
0 / 0 / 0
Регистрация: 06.12.2015
Сообщений: 5
06.12.2015, 23:00 2
9.99
0
0 / 0 / 1
Регистрация: 24.01.2015
Сообщений: 47
06.12.2015, 23:35  [ТС] 3
Pascal
1
2
3
4
if((a=b)and(b=c)and(c<>d))
or((a=b)and(b=d)and(c<>d))
or((a=c)and(c=d)and(c<>b))
or((b=c)and(c=d)and(a<>b))
Так вроде работает.

Добавлено через 19 минут
Исправил и последнее.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var n,m,p,a,b,c,d,e,f,g,h,i,k:integer;
begin
write('Введите число: '); readln(n);
m:=n; p:=0;
while m>0 do begin
i:=m mod 10;
p:=p*10+i;
m:=m div 10;
end;
if p=n then write('Палиндром. ') else write ('Не палиндром. ');
 
a:=n div 1000; b:=n div 100 mod 10; c:=n div 10 mod 10; d:=n mod 10;
if((a=b)and(b=c)and(c<>d))
or((a=b)and(b=d)and(c<>d))
or((a=c)and(c=d)and(c<>b))
or((b=c)and(c=d)and(a<>b)) then write('Число содержит ровно три одинаковых цифры. ')
else write('Число не содержит ровно три одинаковых цифры. ');
 
e:=n mod 10;
f:=(n div 10) mod 10;
g:=(n div 100) mod 10;
h:=(n div 1000) mod 10;
if(e=f)or(e=g)or(e=h)or(f=g)or(f=h)or(g=h) then writeln('Есть одинаковые цифры.')
else writeln('Все цифры различны.');
 
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.12.2015, 23:35

Сформируйте число, в котором все подряд идущие одинаковые цифры исходного числа заменены одной соответствующей цифрой
Дано восемнадцатизначное число. Сформируйте новое число, в котором все подряд идущие одинаковые...

Все ли цифры трёхзначного числа различны
Дано тризначное число.Переверте истиность виражения: &quot;Все цыфри даного числа разные&quot;.

Вводится число с клавиатуры. Вывести на экран все цифры, которые повторяются более одного раза, при выводе цифры не должны повторятся
Вводится число с клавиатуры. Вывести на экран все цифры, которые повторяются более одного раза, при...

Определить, что все цифры числа различны
//Дано трехзначное число.Проверить истиность высказывания :Все цифры данного числа различны....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru