Составте програму, которая находит количество двузначных чисел, которые делятся на сумму своих цифр.

Question

Информатика

Геля

25 февраля, 15:36

Составте програму, которая находит количество двузначных чисел, которые делятся на сумму своих цифр.

+3

Ответы (1)

Знаете ответ?

Юлианыч · Answer 1

var

i, m, n, sum, k:Integer;

Begin

for i:=10 to 99 do

begin

m:=i mod 10;

n:=i div 10;

sum:=m+n;

if (i mod sum = 0) then k:=k+1;

end;

Writeln (k) ;

end.