привет,помогите пожалуйста решить еще задачки)))) 1)дано ...
привет,помогите пожалуйста решить еще задачки)))) 1)дано натуральное число N>1.найти количество его делителей 2)дано натуральное число N>1.равно ли оно сумме своих делителей(включая единицу,но не себя) 3)даны числа a и n.вычислить:1/a 1/a*a 1/a*a*a ... 1/a*n это все цикл for,зарание спасибо!
Есть ответ
18.12.2022
404
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022