Делители числа и НОД. Решите две задачи в Pascal и c++( хотя бы где то в одном из них)....

Question

Делители числа и НОД. Решите две задачи в Pascal и c++( хотя бы где то в одном из них). Первую задачу решать примерно так... но как сюда впихнуть «убывание» помогите. var i, n : integer; begin write ('введите число N-'); readln (n); writeln('В порядке возрастания:'); for i :=1 to n do if n mod i = 0 then writeln (i) end.

---

Answer 1

Делители:

var i,n:integer;

begin

write('Введите число N-');

readln(n);

writeln('В порядке возрастания:');

for i:=1 to n do

if n mod i=0 then write (i,' ');

writeln();

writeln('В порядке убывания:');

for i:=n downto 1 do

if n mod i=0 then write(i,' ')

end.

НОД(через алгоритм Евклида):

var a,b:integer;

begin

writeln('Введите числа(через пробел): ');

readln(a,b);

if (a=0) or (b=0) then

write('НОД = ',abs(a-b)) else begin

while (a<>b) do

if a>b then  

a:=a-b else

b:=b-a;

write('НОД = ',a);

end;

end.