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

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.