Решить еще 1)дано натуральное число n> 1.найти количество его делителей 2)дано натуральное число n> 1.равно ли оно сумме своих делителей(включая единицу,но не себя) 3)даны числа a и n.вычислить: 1/a 1/a*a 1/a*a*a 1/a*n это все цикл for,зарание !
Program n1; Uses CRT; Var k,n,i: integer; begin Writeln('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); readln end.
2)
Program n1; Uses CRT; Var k,n,i: integer; begin Writeln('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'); readln end.
3) Вычислить, я так поняла, сумму всего этого?
Program n1; Uses CRT; Var k,n,i,j,a: integer; s: real; p: longint; begin Writeln('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); readln end.
Var a,b:array[1..3] of integer; begin a[1]:=Random(26); b[1]:=Random(26); a[2]:=Random(26)+25; b[2]:=Random(26)+25; a[3]:=Random(51)+50; b[3]:=Random(51)+50; writeln(a[1],' ',a[2],' ',a[3]); writeln(b[1],' ',b[2],' ',b[3]); if (a[1]=b[1]) and (a[2]=b[2]) and (a[3]=b[3]) then writeln('Совпало 3') else if ((a[1]=b[1]) and (a[2]=b[2])) or ((a[2]=b[2]) and (a[3]=b[3])) or ((a[1]=b[1]) and (a[3]=b[3])) then writeln('Совпало 2') else if (a[1]=b[1]) or (a[2]=b[2]) or (a[3]=b[3]) then writeln('Совпало 1') else writeln('Совпадений нет'); end.
P.S Писал не на компьютере, возможны ошибки, проверьте и в случае если обнаружатся ошибки, напишите мне
Var a,b:array[1..3] of integer; begin a[1]:=Random(26); b[1]:=Random(26); a[2]:=Random(26)+25; b[2]:=Random(26)+25; a[3]:=Random(51)+50; b[3]:=Random(51)+50; writeln(a[1],' ',a[2],' ',a[3]); writeln(b[1],' ',b[2],' ',b[3]); if (a[1]=b[1]) and (a[2]=b[2]) and (a[3]=b[3]) then writeln('Совпало 3') else if ((a[1]=b[1]) and (a[2]=b[2])) or ((a[2]=b[2]) and (a[3]=b[3])) or ((a[1]=b[1]) and (a[3]=b[3])) then writeln('Совпало 2') else if (a[1]=b[1]) or (a[2]=b[2]) or (a[3]=b[3]) then writeln('Совпало 1') else writeln('Совпадений нет'); end.
P.S Писал не на компьютере, возможны ошибки, проверьте и в случае если обнаружатся ошибки, напишите мне
1)
Program n1;
Uses CRT;
Var k,n,i: integer;
begin
Writeln('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);
readln
end.
2)
Program n1;
Uses CRT;
Var k,n,i: integer;
begin
Writeln('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');
readln
end.
3) Вычислить, я так поняла, сумму всего этого?
Program n1;
Uses CRT;
Var k,n,i,j,a: integer; s: real; p: longint;
begin
Writeln('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);
readln
end.