Question

Можете решить, пожалуйста, на PascalABC.net!!! Буду очень признателен, даю 100 баллов!!!

Вова купил билет в трамвае 13-го маршрута и сразу посчитал суммы первых трёх цифр и последних трёх цифр номера билета (номер у билета шестизначный). Оказалось, что суммы отличаются ровно на единицу. «Я в одном шаге от счастья», — подумал Вова, — «или предыдущий или следующий билет точно счастливый». Прав ли он?

Входные данные

Входной файл INPUT.TXT содержит в первой строке число K – количество тестов. В следующих K строках записаны номера билетов. Количество тестов не больше 10. Номер состоит ровно из шести цифр, среди которых могут быть и нули. Гарантируется, что Вова умеет считать, то есть суммы первых трех цифр и последних трех цифр отличаются ровно на единицу.

Выходные данные

Выходной файл OUTPUT.TXT должен содержать K строк, в каждой из которых для соответствующего теста следует указать "Yes", если Вова прав, и "No", если нет.

Answer 1

var
K, i, ticketNumber, firstThreeDigits, lastThreeDigits, sumDiff: Integer;

begin
Readln(K);

for i := 1 to K do
begin
Readln(ticketNumber);

firstThreeDigits := ticketNumber div 1000;
lastThreeDigits := ticketNumber mod 1000;

sumDiff := Abs((firstThreeDigits div 100 + firstThreeDigits mod 100 + firstThreeDigits mod 10) -
(lastThreeDigits div 100 + lastThreeDigits mod 100 + lastThreeDigits mod 10));

if sumDiff = 1 then
Writeln('Yes')
else
Writeln('No');
end;
end.


Предоставленный код написан на языке программирования PascalABC.net и предназначен для решения задачи, которую ты описал можешь смело использовать этот код, вставив его в среду программирования PascalABC.net и запустив для проверки.