|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
07.05.2008, 15:29 | #11 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
А почему бы нет?
Код:
Код:
|
07.05.2008, 15:42 | #12 | |
ФорумчанинДжуниор
Регистрация: 05.05.2008
Сообщений: 606
|
Мне кажется, что ближе всех к истине стоит
Цитата:
------------------------------
Ум без разума –это беда! |
|
07.05.2008, 16:06 | #13 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
07.05.2008, 16:21 | #14 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
Конечно, только я тут забыл исправит Result на имена фун-й.
Смотрите и убедитесь, кто сомневается. Код:
|
07.05.2008, 16:51 | #15 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Вот теперь все в ажуре.
I'm learning to live...
|
07.05.2008, 17:02 | #16 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Теперь можно использовать код который я привёл
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
07.05.2008, 18:58 | #17 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Условие
Цитата:
|
|
07.05.2008, 19:43 | #18 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,597
|
Есть в паскале функция такая - http://delphibasics.ru/str.php, для перевода из числа в строку.
|
07.05.2008, 22:10 | #19 | |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
Цитата:
|
|
08.05.2008, 01:18 | #20 |
Форумчанин
Регистрация: 04.03.2008
Сообщений: 176
|
Этот код точно работает в Borland Pascal
program one; uses crt; var x1,x2,x3,y1,y2,y3,bil:longint; begin write('bil='); readln(bil); x1:=bil div 100000; x2:=(bil mod 100000) div 10000; x3:=((bil mod 100000) mod 10000) div 1000; bil:=bil mod 1000; y1:=bil div 100; y2:=bil mod 100 div 10; y3:=bil mod 100 mod 10; if x1+x2+x3=y1+y2+y3 then writeln('You win') else writeln('You lost'); readln; end. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Определить, является ли матрица магическим квадратом. | 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 |