Если считать за один полноценный рулон билетов от 000000 до 999999, то получается, что в одном таком полном рулоне 1000000 билетов. Я сделал программу которая считает сумму первых и последних трёх чисел:
program bilet;
uses crt;
var
a, b, c, d, e, f, win, o:Integer;
**begin
a:=0;
b:=0;
c:=0;
d:=0;
e:=0;
f:=0;
win:=0;
for o:= 0 to 1000000 do
begin
a:=a+1;
if a=10 then
begin
b:=b+1;
a:=0;
end;
if b=10 then
begin
c:=c+1;
b:=0;
end;
if c=10 then
begin
d:=d+1;
c:=0;
end;
if d=10 then
begin
e:=e+1;
d:=0;
end;
if e=10 then
begin
f:=f+1;
e:=0;
end;
if f=10 then
begin
a:=0;
f:=0;
end;
if (a+b+c)=(d+e+f) then
begin
win:=win+1;
end;
end;
writeln(win) ;
end**.
В итоге получилось что в 1000000 билетах всего 55252 счастливых билетиков.
Хорошее решение, вот мое,
Но ведь билетика с номером 000000 нет, значит общее количество равно 55251
Хороший ответ. Решение правильное.
Я бы советовала посчитать самостоятельно тем, кто уграет по математике/программированию, это интересно с: