Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
antiidiot
0 / 0 / 0
Регистрация: 15.12.2013
Сообщений: 41
1

Проверить, содержит ли заданное число четыре различные цифры

27.01.2014, 18:09. Просмотров 432. Ответов 3
Метки нет (Все метки)

Ввести на форму целое четырехразрядное положительное число. Проверить, содержит ли заданное число четыре различные цифры. Например: 1234, 8976, 3461
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.01.2014, 18:09
Ответы с готовыми решениями:

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

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

Определить содержит ли массив заданное число
Нужно сделать вот что в делфи. Определить содержит ли массив заданное число....

Проверить заданное число на палиндромность
Прошу помощи. Данную программу не могу закончить уже около двух недель, не...

Проверить, не превышает ли число в Edit заданное значение
как поставить условие если edit1.text>99 то showmessage ('жирно не будет?');...

3
Puporev
Модератор
54677 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,341
27.01.2014, 19:38 2
Цитата Сообщение от antiidiot Посмотреть сообщение
Задача на циклы
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TForm1.Button1Click(Sender: TObject);
var n,a,b:integer;
    m:set of byte;
begin
val(Edit1.Text,n,a);
if (a<>0)or(n<1000)or(n>9999) then
 begin
  showmessage('Ошибка, введите 4х разрадное положительное число');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
m:=[];
b:=0;
while n>0 do
 begin
  a:=n mod 10;
  if not(a in m) then
   begin
    inc(b);
    m:=m+[a]
   end;
  n:=n div 10
 end;
if b=4 then showmessage('Все цифры разные')
else showmessage('Не все цифры разные')
end;
0
antiidiot
0 / 0 / 0
Регистрация: 15.12.2013
Сообщений: 41
27.01.2014, 20:25  [ТС] 3
поясните пожалуйста тип переменной m, я не сильно понял
0
Cyborg Drone
Модератор
5293 / 3171 / 2442
Регистрация: 17.08.2012
Сообщений: 10,186
28.01.2014, 02:45 4
Цитата Сообщение от antiidiot Посмотреть сообщение
тип переменной m
Множество из байтов.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.01.2014, 02:45

Задача:дано число n.Правдали оно содержит ровно 3 одинаковых цифры
Доброго времени суток ув. форумчане.Прошу вашей помощи в решении курсовой...

Верно ли что все четыре цифры числа различны
Верно ли что все четыре цифры числа различны help pls

Вывести первые четыре цифры значения функции для Х от 0,3 до 5,1 с шагом 0,4
Вывести первые четыре цифры значения функции для Х от 0,3 до 5,1 с шагом 0,4.


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

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

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