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

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

06.06.2010, 10:59. Просмотров 4638. Ответов 5
Метки нет (Все метки)

Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр (операции деления и нахождения остатка от деления не использовать).
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.06.2010, 10:59
Ответы с готовыми решениями:

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

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

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

Напечатать в возрастающем порядке все двузначные числа,в десятичной записи которых нет одинаковых цифр
Без массивов 1 Напишите программу вычисления суммы для n слагаемых вида (i+1) в...

5
15 / 15 / 13
Регистрация: 25.03.2010
Сообщений: 19
06.06.2010, 11:20 2
Pascal
1
2
3
4
5
6
7
8
var
 i,j,k:integer;
begin
 for i:=1 to 9 do
  for j:=0 to 9 do
   for k:=0 to 9 do
    if (i<>j)and(i<>k)and(j<>k) then write(i,j,k, ' ');
end.
1
Фрилансер
451 / 432 / 117
Регистрация: 01.06.2010
Сообщений: 1,315
06.06.2010, 11:22 3
все трехзначные числа
А я это вижу так...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program Number3;
Uses Crt;
Var
  i:word;
  Stri:string[3];
 
BEGIN
  ClrScr;
  for i:=100 to 987 do
    begin
      Str(i,Stri);
      if (Stri[1]<>Stri[2]) and (Stri[2]<>Stri[3]) and (Stri[1]<>Stri[3])
        then write(i:4);
    end;
  writeln;
  writeln('Press any key...');
  repeat
  until KeyPressed
END.
0
15 / 15 / 13
Регистрация: 25.03.2010
Сообщений: 19
06.06.2010, 11:29 4
все трехзначные числа
Исходя из того, что их нужно лишь вывести на экран, можно немного упростить задачу
0
Фрилансер
451 / 432 / 117
Регистрация: 01.06.2010
Сообщений: 1,315
06.06.2010, 11:35 5
А вот это пусть ТС преподу объясняет, чем символы отличаются от чисел...
0
Платежеспособный зверь
8727 / 4140 / 1603
Регистрация: 28.10.2009
Сообщений: 11,179
06.06.2010, 11:47 6
Mad_Dog, прога с тремя циклами for корректнее, потому что требовалось найти числа, а не наборы символов.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2010, 11:47

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

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

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

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

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


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

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

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