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

270

287

Посмотреть ответы 2

Ответы на вопрос:

Пётр75

Информатика

4,8(14 оценок)

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.

ник5029

Информатика

4,8(72 оценок)

Начать играть в высокотребовательные игры, начать снимать видео в высоком разрешении при этом включить передачу данных, вай-фай, блютуз, геолокацию и т.д. (Короче говоря, загрузить телефон по полной).