1. Найти двухзначные числа, которые делятся на сумму своих цифр

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

Question

Альбертина

15 апреля, 15:16

+1

Ответы (1)

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

Маруля · Answer 1

Var

i, m, sum: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 Writeln (i) ;

end;

end.