Паскаль: среди всех делителей числа н найти те сумма цифр которых кратна трем
Паскаль: среди всех делителей числа н найти те сумма цифр которых кратна трем
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы