1) Написать программку, обретающую для натурального числа все его естественные делители.

1)program zz1;

var n, i:integer; // вводим переменную целого типа

begin

write( введите число );  // вводим с клавиатуры число

read(n);

for i:=1 to n do  // организуем цикл на пять повторений

begin

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

end;

end.

2)Program zz1;

var M, N: integer;  //задаем переменные целого типа

begin

    writeln(Введите М и N);  //вводим с клавиатуры два заданных числа через пробел

    readln(M, N);

    while Mlt;gt;N do  //организуем цикл, пока начальные два числа не равны меж собой

         begin

              if Mgt;N // проверяем условие, если 1-ое число больше второго

              then M:=M-N // то, от первого отнимаем второе

              else N:=N-M //иначе, от второго отнимаем 1-ое

    end;

    write(Н0Д=,M); //в связи с тем, что по окончании цикла два числа сравняются, ответом является любое из них

end.

На языке С include int main(void) int i, n; n = 156; for (i = 1; i lt;= n; i++) if (n % i == 0) printf("%d" "\n", i); return 0; Полагаюсь посодействовал ;)