Задача В Delphi 7

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

  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
    Сообщения:
    483
    Симпатии:
    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, сорьки, что подпортил тебе биз :)
     
Загрузка...

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