Задача В Delphi 7

  • Автор темы Kypa4a
  • Дата начала
K

Kypa4a

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

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

Cambur

Active Member
20.06.2010
27
0
#2
препод по информатике в детстве ездил на трамвае.. или троллейбусе - там в советские времена покупали такие билетики.
venezuela@mail.ru

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

Вложения

K

Kypa4a

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

Cambur

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

nayke

Well-Known Member
04.08.2010
310
0
#5
почему ты решил, что бескорыстно?
я минут 5 возился с программой + пока сообщение писал... работа - жуть тяжелая..
так что с тебя 50 рублей за исходники + отвечу на кучу супер умных вопросов дабы ты в этом хорошенько разобрался
..ну, если не надо - то и к лучшему - мне возни меньше.
честно не скачивал и не запускал ехе, но часто студентам этого хватает чтобы сдать. Поэтому как совет пиши на формах что версия с codeBy.net или демо приблуды.
 

Vadik(R)

Well-Known Member
12.12.2007
469
0
#6
Как-то так, не проверял
Код:
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, сорьки, что подпортил тебе биз :)