Пожалуйста Составить программу) : Найдите количество двухзначных чисел ,которые делятся...

Question

Пожалуйста Составить программу) : Найдите количество двухзначных чисел ,которые делятся на сумму своих цифр.

Answer 1

Program n1; 
var
    i,k:integer;
begin
k:=0;
for i:=10 to 99 do 
  if i mod(i div 10 + i mod 10)=0 then k:=k+1;
writeln(k);
end.