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

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

16.05.2012, 18:04. Просмотров 2947. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

1
For i:=0 to 150 do
219 / 102 / 105
Регистрация: 05.01.2012
Сообщений: 273
16.05.2012, 19:16 2
Лучший ответ Сообщение было отмечено Atex как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
i,c:integer;
s:string;
begin
for i:=100 to 999 do begin
str(i,s);
if (s[1]=s[2]) or (s[1]=s[3]) or (s[2]=s[3]) then c:=c+1
else writeln(i);
end;
writeln('kol-vo elementov ne ydoBji= ',c);
readln(s);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.05.2012, 19:16

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

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

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

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

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


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

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

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