Описание программы

[Игорь Обухов]

Помогите пожалуйста разобраться,что именно делает эта задача

begin
uses crt;
var a,b,k,i: word;
begin
write('Введите значение параметра a: ');
readln(a);
write('Введите значение параметра b: ');
readln(b);
for i:=100 to 999 do
if (i mod 10 = b) and (i mod 10 + i div 100 + i div 10 mod 10 = a) then
inc(k);
writeln('Кол-во чисел, удовлетворяющих условию = ',k);
end.

[BDA]

Программа запрашивает 2 числа.
Потом перебирает все трехзначные числа.
Если в трехзначном числе младший разряд равен b и сумма цифр - a, то увеличивается счетчик.
Затем на экран выводится счетчик.

[Игорь Обухов]

а можешь пожалуйста по-подробнее описать эту строчку
if (i mod 10 = b) and (i mod 10 + i div 100 + i div 10 mod 10 = a)

[BDA]

На примере числа 123:
i=123
i mod 10 - 123
i div 100 - 123
i div 10 mod 10 - 123
mod - остаток от деления
div - частное целочисленного деления

if (i mod 10 = b) and (i mod 10 + i div 100 + i div 10 mod 10 = a)

Если в трехзначном числе младший разряд равен b и сумма цифр - a, то увеличивается счетчик.