![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#21 | |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
![]()
Вот решение, без Mod и Div:
Код:
Цитата:
В Delphi, испольуется Pascal`евский Val в StrToInt. А IntToStr в Delphi сделан на Assembler: Код:
Последний раз редактировалось Alter; 08.05.2008 в 19:34. |
|
![]() |
![]() |
![]() |
#22 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
Если Вы считаете что примитивную школьную задачку в 15 строчек кода с использованием двух операторов, целесообразнее решать в 33 строки с созданием собственных функций, то это Ваше дело. Не надо только это свое мнение навязывать другим. Решить эту задачу наверное можно и еще более сложным способом, только зачем.
|
![]() |
![]() |
![]() |
#23 | |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
![]() Цитата:
![]() |
|
![]() |
![]() |
![]() |
#24 |
Регистрация: 23.05.2008
Сообщений: 8
|
![]()
Вот мой простой пример...
Код:
Последний раз редактировалось t13sto; 23.05.2008 в 14:48. |
![]() |
![]() |
![]() |
#25 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]() Цитата:
I'm learning to live...
|
|
![]() |
![]() |
![]() |
#26 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
![]()
Напишите IntToStr в любом месте в коде формы или где то ещё в проекте, и нажмите волшебное сочетание Ctrl+LeftMouseButton по имени функции
![]() |
![]() |
![]() |
![]() |
#27 |
Новичок
Джуниор
Регистрация: 14.06.2011
Сообщений: 2
|
![]()
Это мой вариант .
program my ; uses cthreads, Classes; var x:integer; // это наш счастливый билет begin writeln('Введите номер билета') readln(x); if (x>999999) or (x<100000) then writeln('Введён неверный номер билета'); else begin if (x div 100000)+((x div 10000) mod 10)+((x div 1000) mod 10)= (x mod 10)+((x mod 100) div 10)+((x mod 1000) div 100) then writeln('Это счастливый билет!') else writeln('Это не счастливый билет('); end; readln; end. В правильности своего решения я уверен ,но могут быть синтаксические ошибке. Последний раз редактировалось Алексей Винокуров; 14.06.2011 в 20:56. |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Определить, является ли матрица магическим квадратом. | drakon803 | Помощь студентам | 11 | 14.12.2011 14:29 |
Задача в Exel (стоимость билета в зависимости от расстояния) | Phill | Помощь студентам | 9 | 30.11.2010 00:20 |
Найти человека по номеру мобильного | 2006demon2006 | Свободное общение | 7 | 15.09.2009 12:24 |
Среди 20 введёных чисел определить чётные, распечатать их, определить min | Spade | Помощь студентам | 4 | 15.06.2008 18:39 |
Определить, является ли заданная строка правильной записью вещественного числа | Sergik1977 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 18.10.2007 16:53 |