Question

3. Трамвайный билет имеет шестизначный номер. Выяснить, является ли билет "счастливым". Билет назовем "счастливым", если сумма первых трех цифр равна сумме последних трех цифр. Примечание. Так как шестизначное число больше 32767(тип Integer), необходимо номер билета определит как тип Longint( до 10 знаков).

Answer 1

Program HappyTicket;

var
ticket: Longint; { номер трамвайного квитка }
firstSum, lastSum: Integer; { суми перших та останніх трьох цифр }

begin
{ Введення номера трамвайного квитка з клавіатури }
Write('Введіть номер трамвайного квитка: ');
ReadLn(ticket);

{ Обчислення сум перших та останніх трьох цифр номера }
firstSum := (ticket div 100000) + ((ticket div 10000) mod 10) + ((ticket div 1000) mod 10);
lastSum := ((ticket div 100) mod 10) + ((ticket div 10) mod 10) + (ticket mod 10);

{ Перевірка, чи є номер трамвайного квитка "щасливим" }
if firstSum = lastSum then
WriteLn('Це щасливий квиток!')
else
WriteLn('Це не щасливий квиток.');
end.

Answer 2

Для решения этой задачи, вам нужно разбить шестизначный номер билета на отдельные цифры, затем сложить первые три цифры и последние три цифры, и сравнить полученные суммы.

Вот пример решения на языке программирования, например, в Pascal:

program LuckyTicket;

var
  ticketNumber: Int64; // используем тип Longint для номера билета

function IsLucky(ticket: Int64): boolean;
var
  digit1, digit2, digit3, digit4, digit5, digit6: integer;
  sumFirstThree, sumLastThree: integer;
begin
  // Разбиваем номер билета на отдельные цифры
  digit6 := ticket mod 10;
  digit5 := (ticket div 10) mod 10;
  digit4 := (ticket div 100) mod 10;
  digit3 := (ticket div 1000) mod 10;
  digit2 := (ticket div 10000) mod 10;
  digit1 := (ticket div 100000) mod 10;

// Считаем суммы первых и последних трех цифр
  sumFirstThree := digit1 + digit2 + digit3;
  sumLastThree := digit4 + digit5 + digit6;

// Сравниваем суммы и определяем, является ли билет "счастливым"
  IsLucky := sumFirstThree = sumLastThree;
end;

begin
  // Ввод номера билета
  write('Введите номер билета: ');
  readln(ticketNumber);

// Проверка и вывод результата
  if IsLucky(ticketNumber) then
    writeln('Билет счастливый!')
  else
    writeln('Билет несчастливый.');
end.

Вы можете ввести номер билета, и программа сообщит вам, является ли он "счастливым" согласно условиям задачи.