Задание:
Привет, помогите пожалуйста решить еще задачки) 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.
Знаете другой ответ?