Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Дмитрий Б
0 / 0 / 0
Регистрация: 14.12.2012
Сообщений: 3
1

Условные операторы: Определить, верно ли, что все цифры трехзначного числа различны

17.01.2013, 10:49. Просмотров 901. Ответов 1
Метки нет (Все метки)

Дано трёх значное число,заданное с клавиатуры.Верно ли,что все цифры числа различны?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.01.2013, 10:49
Ответы с готовыми решениями:

Верно ли , что все четыре цифры числа различны?
Дано натуральное число n (n<=9999). Верно ли , что все четыре цифры числа различны? Помогите...

Дано 4-х значное натуральное число n.Верно ли,что все 4 цифры числа различны.
Дано 4-х значное натуральное число n.Верно ли,что все 4 цифры числа различны.

Дано натуральное четырехзначное число n. Верно ли, что все четыре цифры числа различны
Помогите пожалуйста 1)Дано натуральное четырехзначное число n. Верно ли, что все четыре цифры...

Дано натуральное число n (n ≤ 9999). Верно ли, что все четыре цифры числа различны?
Дано натуральное число n (n ≤ 9999). Верно ли, что все четыре цифры числа различны?

Найти все натуральные числа, состоящие из N цифр, для которых верно утверждение "все цифры числа различны"
Дано натуральное число N (2<=N<=8). Найти все натуральные числа, состоящие из N цифр, для которых...

1
orange_rush
140 / 146 / 116
Регистрация: 15.11.2012
Сообщений: 529
Записей в блоге: 2
19.01.2013, 13:00 2
Лучший ответ Сообщение было отмечено Дмитрий Б как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
   i,j,k:integer;
   numset:set of byte;
begin
     repeat
     numset:=[];
     readln(j);
     while j>0 do begin
           i:=j mod 10;
           if i in numset then begin
              writeln('neverno');
              k:=0;
              break;
           end else begin
               k:=1;
               numset:=numset+[i];
           end;
           j:=j div 10;
     end;
     if k=1 then writeln('verno!');
     until false; {ctrl+c}
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.01.2013, 13:00

Дано четырёзначное натуральное число n:верно ли,чтовсе четыре цифры числа различны
Дано четырёзначное натуральное число n:верно ли,чтовсе четыре цифры числа различны

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

Все ли цифры числа различны?
Дано натуральное число(ввод с клавиатуры) Здрасти всем... вообщем тут такая задачка сразу скажем...


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

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

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