Question

Нужно для программы Pascal!
Из чисел от 10 до 99 вывести те, сумма цифр которых равна
n и само число делится на m.

Answer 1

var n,m,s,q,w,e:Integer;
begin
Read(n,m);
for s:= 10 to 99 do
begin
q:= s div 100;
w:= s div 10 mod 10;
e:= s mod 10;
if (q+w+e=n) and(s mod m = 0) then
WriteLn(s);
end;
end.