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

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

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

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

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

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

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

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

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

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

1
orange_rush
140 / 146 / 116
Регистрация: 15.11.2012
Сообщений: 528
Записей в блоге: 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<9999).Верно ли что все четыре цыфри различны?
Помогите пожалуйста написать программу с помощью div и mod!!! Очень срочно...

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


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

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

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