Можете решить, пожалуйста, на PascalABC.net!!! Буду очень признателен, даю 100 баллов!!!
Вова купил билет в трамвае 13-го маршрута и сразу посчитал суммы первых трёх цифр и последних трёх цифр номера билета (номер у билета шестизначный). Оказалось, что суммы отличаются ровно на единицу. «Я в одном шаге от счастья», — подумал Вова, — «или предыдущий или следующий билет точно счастливый». Прав ли он?
Входные данные
Входной файл INPUT.TXT содержит в первой строке число K – количество тестов. В следующих K строках записаны номера билетов. Количество тестов не больше 10. Номер состоит ровно из шести цифр, среди которых могут быть и нули. Гарантируется, что Вова умеет считать, то есть суммы первых трех цифр и последних трех цифр отличаются ровно на единицу.
Выходные данные
Выходной файл OUTPUT.TXT должен содержать K строк, в каждой из которых для соответствующего теста следует указать "Yes", если Вова прав, и "No", если нет.
Ответы
Ответ дал:
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 и запустив для проверки.
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 и запустив для проверки.
borsukovkosta2:
Спасибо большое!!! Но, что такое “Abc”?
Вас заинтересует
3 месяца назад
3 месяца назад
3 месяца назад
1 год назад
7 лет назад