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.