Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/30: Рейтинг темы: голосов - 30, средняя оценка - 4.67
15 / 15 / 0
Регистрация: 23.02.2010
Сообщений: 53
1

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

23.02.2010, 14:27. Просмотров 5581. Ответов 9
Метки нет (Все метки)

Чтобы открыть секретный сейф, агент 007 должен в возрастающем порядке набирать все трехзначные числа, в записи которых нет одинаковых цифр. Составить програму, которая бы печатала для агента на экране такие числа, а также определить, сколько времени потребуется ему для вскрытия сейфа, если на набор одного числа он тратит t секунд.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.02.2010, 14:27
Ответы с готовыми решениями:

Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр
3)Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет...

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

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

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

__________________
9
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
23.02.2010, 14:36 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var c1,c2,c3:integer;
t,k:integer;
 
begin
 clrscr;
 write('T -> ');
 readln(t);
 k:=0;
 for c1:=1 to 9 do
 for c2:=0 to 9 do
 for c3:=0 to 9 do
 if (c1<>c2) and (c2<>c3) and (c1<>c3) then
 begin
  inc(k);
  write(c1,c2,c3,' ');
 end;
 writeln;
 writeln('Общее время = ',k*t,' с');
 readln;
end.
2
203 / 145 / 16
Регистрация: 13.01.2009
Сообщений: 554
23.02.2010, 14:56 3
хех, нет ничего проще

всего 3х значных чисел
1000
- 10 где все 3 цифры одинаковы
- 270 где 2 цифры одинаковы
итого 720 чисел - 720t секунд.

Йа Бонд, Джеймс Бонд

Добавлено через 4 минуты
k1ry4,

думаю в

Pascal
1
for c1:=1 to 9 do
тоже должно быть c1:=0 to 9 логике задачи не противоречит, если на первом месте в коде сейфа будет 0, чем 0 - плохая цифра?
1
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
23.02.2010, 14:58 4
Splitter, по-вашему 067 - трёхзначное число?
0
203 / 145 / 16
Регистрация: 13.01.2009
Сообщений: 554
23.02.2010, 15:02 5
Цитата Сообщение от k1ry4 Посмотреть сообщение
Splitter, по-вашему 067 - трёхзначное число?
по-моему 067 - корректный код для сейфа
0
0 / 0 / 0
Регистрация: 12.12.2010
Сообщений: 6
07.01.2011, 13:49 6
У меня задачка
Найти сумму всех трехзначных чисел, в которых нет одинаковых цифр
на примере я нашел все 3-х значные числа как мне теперь сложить если не трудно напишите
0
20 / 20 / 11
Регистрация: 31.12.2010
Сообщений: 112
07.01.2011, 15:37 7
Можно прийнять переменную а как число сотен, b как число десятков, c как число едениц, тогда число будет: a*100+b*10+c
1
0 / 0 / 0
Регистрация: 12.12.2010
Сообщений: 6
07.01.2011, 16:27 8
напиши код программы как сделать
0
20 / 20 / 11
Регистрация: 31.12.2010
Сообщений: 112
09.01.2011, 16:34 9
Program suma;
uses crt;
var c1,c2,c3:integer;
k:integer;
begin
clrscr;
k:=0;
for c1:=1 to 9 do
for c2:=0 to 9 do
for c3:=0 to 9 do
if (c1<>c2) and (c2<>c3) and (c1<>c3) then
k:=c1*100+c2*10+c3+k;
writeln('Obshie symaя=',k);
readln;
end.
1
0 / 0 / 0
Регистрация: 12.12.2010
Сообщений: 6
10.01.2011, 11:02 10
Спасибо))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.01.2011, 11:02

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

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

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

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


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

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

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