Pascal - Определение суммы!

Ответить
Dimo4ik
Сообщения: 8
Зарегистрирован: 10 сен 2008, 01:44

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

Задача простая,но я туплю *)
Аватара пользователя
Oleg_Rus
Сообщения: 335
Зарегистрирован: 16 окт 2006, 09:56
Откуда: г.Улан-Удэ, респ.Бурятия, Российская Федерация
Контактная информация:

есть в паскале такие простые операторы, как div u mod. если я не ошибаюсь, то див-целое число от деления, мод-остаток от деления. Дальше, думаю, объяснять не надо...
e-mail: garmayev@yandex.ru
---------------------------------------------------------------------------
<a href="http://nick-name.ru/sertificates/711965/"><img src="http://nick-name.ru/img.php?nick=Garmay ... =2&text=t5" alt="Никнейм Garmayev зарегистрирован!" /></a>
Dimo4ik
Сообщения: 8
Зарегистрирован: 10 сен 2008, 01:44

Благодарю!
Просто Паскаль подзабыл чуток,буду пробывать *)
Dimo4ik
Сообщения: 8
Зарегистрирован: 10 сен 2008, 01:44

Всё получилось,задача оказалась проще чем я думал *)
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

Все еще проще.
s=str(x);
writeln(ord(s[1])+ord(s[2])+ord(s[3])=ord(s[4])+ord(s[5])+ord(s[6]));
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Аватара пользователя
Oleg_Rus
Сообщения: 335
Зарегистрирован: 16 окт 2006, 09:56
Откуда: г.Улан-Удэ, респ.Бурятия, Российская Федерация
Контактная информация:

))) Действительно, амый простой способ...
просто у меня была аналогичная задача, где надо было пащитать кол-во "счастливых билетов", вот и заклинило на див и мод

а решение красивое :D
e-mail: garmayev@yandex.ru
---------------------------------------------------------------------------
<a href="http://nick-name.ru/sertificates/711965/"><img src="http://nick-name.ru/img.php?nick=Garmay ... =2&text=t5" alt="Никнейм Garmayev зарегистрирован!" /></a>
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

Да я помню, эта задачка нам еще в восьмом классе где-то попалась.
Другое дело - нам в школе за 4 года обучения Паскаля не объяснили никаких типов, кроме integer и real. Так что о существовании строк я даже не подозревал :)
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Ответить