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

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

28.05.2012, 17:33. Просмотров 8871. Ответов 2
Метки нет (Все метки)

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

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

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

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

Трехзначные числа, в записи которых нет одинаковых цифр.
Чтобы открыть секретный сейф, агент 007 должен в возрастающем порядке набирать все трехзначные...

2
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
28.05.2012, 18:01 2
Лучший ответ Сообщение было отмечено SaLoMoN как решение

Решение

3.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  i,j: integer;
  st: string;
begin
  for i:=100 to 999 do
  begin
    str(i,st);
    if (st[1]<>st[2])and(st[2]<>st[3])and(st[1]<>st[3]) then
    writeln(st);
  end;
  readln;
end.
1
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,961
Записей в блоге: 1
28.05.2012, 21:24 3
Цитата Сообщение от SaLoMoN Посмотреть сообщение
2)Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр.Операции деления, целочисленного деления и определения остатка не использовать.
Pascal
1
2
3
4
5
6
7
8
9
10
Var s:string;
    i:integer;
Begin
    writeln('Числа у которых все цифры различны:');
    For i:=100 to 999 do
     Begin
      Str(i,s);
      if (s[1]<>s[2])and(s[1]<>s[3])and(s[2]<>s[3]) then write(s:5);
     End;
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.05.2012, 21:24

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

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

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

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

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


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

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

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