Задача на вероятность

Код в паскале

program gh7;
var a,b,k,i:integer;
begin
k:=0;
for i:=100000 to 999999 do
begin
a:=(i div 100000)+(i div 10000)-(i div 100000)*10+(i div 1000)-(i div 10000)*10;
b:=(i div 100)-(i div 1000)*10+(i div 10)-(i div 100)*10+(i mod 10);
if a=b then k:=k+1;
if a=b then writeln(i);
end;
writeln('Kolichestvo podhodyachih chisel = ', k);
writeln('Veroyatnost = ' , k/900000);
end.

Ответ: P=0,056 или 5,6%; количество чисел=50412.

По действиям
1). Вспомним, что вероятность= число благоприятных исходов/ общее число исходов
Общее число мы узнаем из условия= все 6-ти значные числа. Что это за числа? Это числа в диапазоне от 100 000 до 999 999. Их количество равно 900 000(999 999-100 000+1).
2). Определим число благоприятных исходов. Условие, при котором мы считаем исход благоприятном есть в дано ( сумма.... последних). Приступим к перебору. Можно выполнить всё вручную, но рассмотрение 900 вариантов (от 100 до 999- первые цифры 6-ти значных чисел) в каждом из которых ещё множество вариантов, не вариант, если вас не хотят замучить.
3). Как работает программа? Возьмём число 238940. Оно нам подходит (2+3+8=9=4=13)
Оператор div возвращает целую часть от деления, а оператор mod-остаток от деления. Например
25/7=3(ост. 4), если программа, то 25 div 7=3 25 mod 7=4.

В результате выполнения программы мы получили 50412(число благоприятных исходов) таких чисел ( кроме этого, программа и выводит все эти числа).
Вспомним формулу из первого действия: вероятность= число благоприятных исходов/ общее число исходов Подставим наши значения. вероятность=50412/900000=0.056 или 5.6%