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

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

16.10.2012, 20:25. Показов 6143. Ответов 4
Метки нет (Все метки)

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

ребята хелп DD
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.10.2012, 20:25
Ответы с готовыми решениями:

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

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

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

Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.
1. Построить блок-схему и решить задачу, используя цикл с предусловием: Вывести на экран все...

4
Избранный
83 / 83 / 42
Регистрация: 08.06.2012
Сообщений: 174
16.10.2012, 20:57 2
Перебирать нельзя, а цикл for вообще использовать можно?
0
3 / 3 / 0
Регистрация: 15.10.2012
Сообщений: 8
16.10.2012, 21:09  [ТС] 3
Цитата Сообщение от sumrak95 Посмотреть сообщение
Перебирать нельзя, а цикл for вообще использовать можно?

да с циклов For можно
0
13089 / 5870 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
17.10.2012, 16:12 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program Project1;
 
var
  i, j, k : Byte;
begin
  Writeln('Перечень трёхзначных чисел, в которых есть две одинаковые цифры:');
  for i := 1 to 9 do
  for j := 0 to 9 do
  for k := 0 to 9 do
  if (i = j) or (j = k) or (i = k) then Writeln(i, j, k);
  Readln;
end.
В этом коде перебор самих чисел не выполняется. Перебираются разряды числа.
---
Чтобы распечатка шла в строку, можно сделать так: Write(i, j, k, ' ');
1
0 / 0 / 0
Регистрация: 01.12.2013
Сообщений: 5
01.12.2013, 12:19 5
найти все трехзначные числа, у которых две цифры одинаковы через цикл while в Паскале пожалуйстаMawrat,
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.12.2013, 12:19
Помогаю со студенческими работами здесь

Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.
Хорошая тема,поэтому ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ!!!! Условие: Вывести на экран все трехзначные числа,...

Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.
Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй...

найти все трехзначные числа, у которых две цифры одинаковы через цикл while в Паскале пожалуйста
найти все трехзначные числа, у которых две цифры одинаковы через цикл while в Паскале пожалуйста

Определить, верно ли, что в десятичной записи целого числа есть две одинаковые цифры
Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. (без...


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

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

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