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

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.

Var       x, s, a: real;       i: integer; begin       write('введите x');       readln(x);       a : = x;       s : = a;       for i : = 1 to 6 do       begin               a : = a * (-1) * x * x / (2 * i) / (2 * i + 1);               s : = s + a;       end;             writeln('s = ', s: 10: 3); end.

Var       x, s, a: real;       i: integer; begin       write('введите x');       readln(x);       a : = x;       s : = a;       for i : = 1 to 6 do       begin               a : = a * (-1) * x * x / (2 * i) / (2 * i + 1);               s : = s + a;       end;             writeln('s = ', s: 10: 3); end.