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

Question

Информатика

Геля

7 июля, 12:06

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

+4

Ответы (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.