Паскаль: среди всех делителей числа н найти те сумма цифр которых кратна трем

Question

Информатика

Ксюра

27 августа, 07:48

Паскаль: среди всех делителей числа н найти те сумма цифр которых кратна трем

+5

Ответы (1)

Знаете ответ на вопрос?

Мана · Answer 1

Var n, x:integer;

begin

read (n) ;

if n mod 3 = 0 then

begin

n : = n div 3;

for x : = 1 to n do

if n mod x = 0 then

write (3*x,' ')

end

else

write ('Not found')

end.