Сколько существует счастливых четырехзначных билетов? Счастливым считается билет,у которого сумма первых двух цифр равна сумме двух последних.

Ответы:

615 чисел.

Вот программа на Паскале ABC по их вычислению:

Program bilet,

var i:integer,

    s:string,

begin

for i:=1000 to 9999 do begin

                       s:=IntToStr(i),

                       if StrToInt(s[1])+StrToInt(s[2])=StrToInt(s[3])+StrToInt(s[4]) then writeln(i),

                       end,

end.