Задача В Delphi 7

Тема в разделе "Pascal and Delphi", создана пользователем Kypa4a, 24 дек 2011.

Наш партнер Genesis Hackspace
  1. Kypa4a

    Kypa4a Гость

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

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

    Cambur Active Member

    Регистрация:
    20 июн 2010
    Сообщения:
    27
    Симпатии:
    0
    препод по информатике в детстве ездил на трамвае.. или троллейбусе - там в советские времена покупали такие билетики.
    venezuela@mail.ru

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

    Вложения:

    • Project1.rar
      Размер файла:
      160,3 КБ
      Просмотров:
      8
  3. Kypa4a

    Kypa4a Гость

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

    Cambur Active Member

    Регистрация:
    20 июн 2010
    Сообщения:
    27
    Симпатии:
    0
    почему ты решил, что бескорыстно?
    я минут 5 возился с программой + пока сообщение писал... работа - жуть тяжелая..
    так что с тебя 50 рублей за исходники + отвечу на кучу супер умных вопросов дабы ты в этом хорошенько разобрался
    ..ну, если не надо - то и к лучшему - мне возни меньше.
     
  5. nayke

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    честно не скачивал и не запускал ехе, но часто студентам этого хватает чтобы сдать. Поэтому как совет пиши на формах что версия с codeBy.net или демо приблуды.
     
  6. Vadik(R)

    Vadik(R) Well-Known Member

    Регистрация:
    12 дек 2007
    Сообщения:
    470
    Симпатии:
    0
    Как-то так, не проверял
    Код (Delphi):
    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, сорьки, что подпортил тебе биз :)
     
Загрузка...

Поделиться этой страницей