Прошу прощения, но вышло так, что я фатально ошибся и в 1 рулоне кондуктора может быть лишь с несколько тысяч билетов, однако программа ниже запросто высчитает количество счастливых билетов в заданном промежутке. Пост уже не выйдет на общее обозрение, а жаль.
Счастливых билетов в 1 рулоне автобусных билетов 50412 штук. Почему именно так у меня получилось, читаем ниже.
Знаете, лет с 7 мне стало интересно сколько же счастливых билетов находится в 1 рулоне автобусных билетиков. Правда как стало интересно, так и забылось. Вспоминалось это изредка с некоторой переодичностью и забывалось в течении 5 минут с того момента. Вот буквально вчера мне вновь стало интересно, решил посчитать. Поискал в гугле, как водится, вероятно, плохо, и не нашёл ничего на эту тему. А дальше просто как захотелось, так и начал считать.
Я допустил, что поскольку в билетах содержится 6 цифр, то имеется первый билет (000001) и последний(999999), отсюда исходя и посчитал. Вот программа:
var a,b,c,i:longint;
begin
c:=0;
for i:=100000 to 999999 do begin
a:=i div 100000 плюс i div 10000 mod 10 i div 1000 mod 10;
b:=i mod 10 плюс i mod 100 div 10 плюс i mod 1000 div 100;
if a=b then c:=c плюс 1;
end;
write(c);
end.
Хочу попросить прощение, но пикабу не вводит знак "плюс", пришлось написать словами.