0 / 0 / 0
Регистрация: 25.01.2013
Сообщений: 119
1

Найти все четырехзначные числа, в которых есть две одинаковые цифры

29.04.2013, 12:38. Показов 2652. Ответов 1
Метки нет (Все метки)

найти все четырехзначные числа, в которых есть две одинаковые цифры
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.04.2013, 12:38
Ответы с готовыми решениями:

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

Найдите все четырехзначные числа, в которых есть две одинаковые цифры
Помогите пожалуйста с програмированием в Паскале! задача: найдите все четырехзначные числа, в...

Вывести все четырехзначные числа в диапазоне от A до B, в записи которых есть 3 одинаковые цифры
Написал данную программу, но не могу понять, куда нужно вставить условие для промежутка (чтобы при...

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

1
bmstu-team
301 / 136 / 91
Регистрация: 10.01.2012
Сообщений: 420
Записей в блоге: 10
29.04.2013, 14:56 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

только проверь
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var ch,i,j:integer;
    a: array[1..4] of integer;
begin
for ch:=1000 to 9999 do begin
for i:=1 to 4 do
for j:=2 to 4-i do
 
a[1]:= ch div 1000;
a[2]:= (ch div 100) mod 10;
a[3]:= (ch div 10) mod 100;
a[4]:= ch mod 10;
 
If a[i] = a[j] then begin
write(ch,' ');
 
end; end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.04.2013, 14:56
Помогаю со студенческими работами здесь

Найти все четырехзначные числа, в которых есть две одинаковые цифры
Найти все четырехзначные числа, в которых есть две одинаковые цифры! Заранее благодарю! Кто чем...

Найти все четырехзначные числа, в которых есть две одинаковые цифры
Программа работает, но что-то с условием. Выдаются числа, где и 3 цифры одинаковы. Проверьте,...

Найти все четырехзначные числа, в которых есть две одинаковые цифры
Найти все четырехзначные числа, в которых есть две одинаковые цифры.

Найти все четырехзначные числа, в которых ровно две одинаковые цифры.
uses crt; var a,b,c,d:integer; begin clrscr; for a:= 1 to 9 do for b:= 0 to 9 do for...


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

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

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