Напишите программу в паскаль:
составить программу для получения в порядке убывания всех делителей данного числа
program Divisors;
var
N,i: integer;
begin
readln(N);
for i:=N downto 1 do if N mod i = 0 then write(i,' ');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program Divisors;
var
N,i: integer;
begin
readln(N);
for i:=N downto 1 do if N mod i = 0 then write(i,' ');
end.