Задача В Delphi 7

[Kypa4a]

все привет,пасаны!
по информатике препод сектант,толком ничего не объяснял,а задал дохерища.
помогите решить задачку!

задача:
Нужно составить программу для выявления "счастливых билетов". сумма первых 3ёх чисел должна ровняться сумме остальных 3ёх.
и она должна работать так:вводишь 6ти значное число и она должна проверять подходит ли оно.

 

[Cambur]

препод по информатике в детстве ездил на трамвае.. или троллейбусе - там в советские времена покупали такие билетики.
venezuela@mail.ru

Добавлено: препод по информатике в детстве ездил на трамвае.. или троллейбусе - там в советские времена покупали такие билетики.
venezuela@mail.ru

 

[Kypa4a]

Cambur,большое спасибо!!!!!!!!блин,есть же ещё добрые люди,готовые бескорыстно помочь!!!!
ещё раз спасибо!!

 

[Cambur]

почему ты решил, что бескорыстно?
я минут 5 возился с программой + пока сообщение писал... работа - жуть тяжелая..
так что с тебя 50 рублей за исходники + отвечу на кучу супер умных вопросов дабы ты в этом хорошенько разобрался
..ну, если не надо - то и к лучшему - мне возни меньше.

 

[nayke]

почему ты решил, что бескорыстно?
я минут 5 возился с программой + пока сообщение писал... работа - жуть тяжелая..
так что с тебя 50 рублей за исходники + отвечу на кучу супер умных вопросов дабы ты в этом хорошенько разобрался
..ну, если не надо - то и к лучшему - мне возни меньше.

честно не скачивал и не запускал ехе, но часто студентам этого хватает чтобы сдать. Поэтому как совет пиши на формах что версия с codeBy.net или демо приблуды.

 

[Vadik(R)]

Как-то так, не проверял

program bilet;

uses
SysUtils;

var
s1, s2, x: LongInt;
begin
readln(x);
s1 := x mod 10;
x := x div 10;
s1 := s1 + x mod 10;
x := x div 10;
s1 := s1 + x mod 10;
x := x div 10;
s2 := x mod 10;
x := x div 10;
s2 := s2 + x mod 10;
x := x div 10;
s2 := s2 + x mod 10;
if s1 = s2 then writeln('Lucky') else writeln('Unlicky');
end.

Cambur, сорьки, что подпортил тебе биз