Решить еще 1)дано натуральное число n> 1.найти количество его делителей 2)дано натуральное число n> 1.равно ли оно сумме своих делителей(включая единицу, но не себя) 3)даны числа a и n.вычислить: 1/a 1/a*a 1/a*a*a 1/a*n это все цикл for, зарание !

1)

program n1; uses crt; var k,n,i: integer; beginwriteln('vvedite n'); readln(n); for i: =1 to n do if n mod i=0 then k: =k+1; writeln('delitelei ',k,' vkluchaya 1 i ',n); readlnend.

 

 

2)

program n1; uses crt; var k,n,i: integer; beginwriteln('vvedite n'); readln(n); for i: =1 to n-1 do if n mod i=0 then k: =k+i; if k=n then writeln ('chislo ravno summe delitelei') else writeln('ne ravno'); readlnend.

 

 

3) вычислить, я так поняла, сумму всего этого?

program n1; uses crt; var k,n,i,j,a: integer; s: real; p: longint; beginwriteln('vvedite a,n'); readln(a,n); p: =1; for i: =1 to n do for j: =1 to i do p: =p*a; s: =s+1/p; writeln(s); readlnend.

// pascalabc.net 3.1, сборка 1174 от 22.02.2016 begin   var s: =readlnstring('введите строку: ');   var p: =pos('.',s);   if p> 0 then s: =copy(s,1,p-1);   var a: =s.towords;   if a.count=3 then begin       writeln(a[0],' ',a[1][1],'.',a[2][1],'.')       end   else       writeln('неверно задана строка') end. тестовое решение: введите строку:           иванов          петр    сергеевич.! это лишнее иванов п.с.

//pascal abc.net v3.1 сборка 1172 const   n=4; var   ar: array[1..n] of integer;   i,j: integer;   k: real; begin  writeln('array: ');   for i: =1 to n do     readln(ar[i]);   k: =ar[1]/ar[2];   for i: =1 to n-1 do     if ar[i]/ar[i+1]< > k then     begin       writeln('no');       exit;     end;   writeln('yup'); end. пример ввода: 1 2 4 8 пример вывода: yup