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.