![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
![]()
А почему бы нет?
Код:
Код:
|
![]() |
![]() |
![]() |
#12 | |
ФорумчанинДжуниор
Регистрация: 05.05.2008
Сообщений: 606
|
![]()
Мне кажется, что ближе всех к истине стоит
Цитата:
------------------------------
Ум без разума –это беда! |
|
![]() |
![]() |
![]() |
#13 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]() Цитата:
I'm learning to live...
|
|
![]() |
![]() |
![]() |
#14 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
![]()
Конечно, только я тут забыл исправит Result на имена фун-й.
Смотрите и убедитесь, кто сомневается. Код:
|
![]() |
![]() |
![]() |
#15 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Вот теперь все в ажуре.
I'm learning to live...
|
![]() |
![]() |
![]() |
#16 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
![]()
Теперь можно использовать код который я привёл
![]()
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
![]() |
![]() |
![]() |
#17 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
Условие
Цитата:
|
|
![]() |
![]() |
![]() |
#18 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,530
|
![]()
Есть в паскале функция такая - http://delphibasics.ru/str.php, для перевода из числа в строку.
|
![]() |
![]() |
![]() |
#19 | |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
![]() Цитата:
|
|
![]() |
![]() |
![]() |
#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 |