5. Дано трехзначное число. Определить, есть ли среди его цифр одинаковые - Помощь студентам

monokol · 24.12.2011, 13:50

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

Hacker19_90 · 24.12.2011, 14:00

Код:

if ((chislo mod 10) = ((chislo div 10) mod 10)) or ((chislo mod 10) = (chislo div 100)) or 
    (((chislo div 10) mod 10) = (chislo div 100)) then Writeln ('TRUE');

24.12.2011, 13:50	#1
monokol Пользователь Регистрация: 21.12.2011 Сообщений: 10	5. Дано трехзначное число. Определить, есть ли среди его цифр одинаковые Дано трехзначное число. Определить, есть ли среди его цифр одинаковые

24.12.2011, 14:00	#2
Hacker19_90 Delphi Warrior Старожил Регистрация: 15.08.2008 Сообщений: 2,502	Код: `if ((chislo mod 10) = ((chislo div 10) mod 10)) or ((chislo mod 10) = (chislo div 100)) or (((chislo div 10) mod 10) = (chislo div 100)) then Writeln ('TRUE');` *Mess with the best, die like the rest.* (с) Hackers Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
вводится натуральное трехзначное число. Определить, есть ли среди цифр этого числа одинаковые (задание по Паскалю)	najdjel	Помощь студентам	0	11.10.2011 17:59
Дано натуральное число n. Определить, сколько парных цифр в числе n. Чему равна сумма нечетных его цифр?	pahanzona	Microsoft Office Excel	4	27.02.2011 15:46
Дано целое двухзначное число.Определить равна ли сумма его цифр 7. Составте к нему и блок - схему.	DeadAir	Паскаль, Turbo Pascal, PascalABC.NET	2	03.04.2010 14:18
Дано двузначное число. Определить кратна ли сумма его цифр числу а ?	Оксаночка:)	Помощь студентам	8	17.12.2009 19:46
дано трехзначное число.вывести число,полученное при перестановки цифр десятков и сотен исходдного числа.	Kenny_mackormik	Помощь студентам	7	12.03.2009 15:18