Ответ:
program Divisors;
var
N,i: integer;
begin
readln(N);
for i:=N downto 1 do if N mod i = 0 then write(i,’ ‘);
end.
Похожие вопросы и ответы:
- Найдите пересечение и объединение множеств А и В , где…
- Расположите числа -2,2;8,6;0,9;-6,8;-17,6;0;15 в порядке…
- Расставьте числа 9/10, 10/11, 11/12, 12/13 в порядке…
- Найдите сумму диагоналей данного четырехугольника, если…
- Совокупность признаков (число, размеры, форма и т. д.)…
- Привет всем!)Знает кто-нибудь ответы к этому тестуОЧень…
- Помогите написать код программы на языке ПаскальЗадан…
- Написать код на Python Напишите программу, которая переводит…
- Найдите промежутки возрастания и убывания функции y=x^2 + 6x…
- По известным свойствам функции постройте её график: -область…
- Сколько режимов компиляции в языке Турбо Паскаль? - ответ на…
- Какая часть завершает модуль в языке Турбо Паскаль? - ответ…
- С какой целью в системе программирования Турбо Паскаль…
- Какая конструкция используется в языке Паскаль для…
- Какой конструкцией определяется тип множества в языке…