Program Prog15a; {1}
var n,i,s,r:integer;
Begin
write ('Unesite n');
read (n);
s:=0;
for i:=1 to n do s:=s+2*i-1;
r:=n*n;
writeln ('s=',s,'r=',r);
if s=r then writeln ('Vazi jednakost')
else writeln ('Ne vazi jednakost');
End.
Program Prog15b; {2}
var n,i,s,r:integer;
Begin
write ('Unesite n');
read (n);
s:=0;
for i:=1 to n do s:=s+sqr(2*i-1);
r:=n*(4*sqr(n)-1) div 3;
writeln ('s=',s,'r=',r);
if s=r then writeln ('Vazi jednakost')
else writeln ('Ne vazi jednakost');
End.
Program Prog17a; {3}
var i,n: integer;
s: real;
Begin
write ('Unesite broj clanova sume');
readln (n);
s:=0;
for i:= 1 to n do
s:= s + 1/i;
writeln ('s=',s:10:2);
end.
Program Prog17b; {4}
var i,n: integer;
s: real;
Begin
write ('Unesite broj clanova sume');
readln (n);
s:=0;
for i:= 1 to n do
s:= s + 1/(2*i-1);
writeln ('s=',s:10:2);
end.
Program Prog17c; {5}
var i,n,z: integer;
s: real;
Begin
write ('Unesite broj clanova sume');
readln (n);
s:=0;
z:=1;
for i:= 1 to n do
s:= s + z/(2*i-1);
z:=-z;
writeln ('s=',s:10:2);
end.
Program Prog18a; {6}
var n,i:integer;
p:longint;
Begin
write ('unesite n ');
readln (n);
p:=1;
writeln ('N':10 , '2^N':10);
writeln ('----------------');
for i:=0 to n do
begin
writeln (i:10,p:10);
p:=p*2;
end;
End.
Program Prog18b; {7}
var n,i:integer;
p:longint;
Begin
write ('unesite n ');
readln (n);
p:=1;
writeln ('N':10 , 'N!':15);
writeln ('----------------');
for i:=1 to n do
begin
p:=p*i;
writeln (i:10,p:15);
end;
End.
Program Prog20a; {8}
var n,i:integer;
p,s,x:real;
Begin
writeln ('unesite x');
readln(x);
writeln ('unesite n');
readln(n);
p:=1;
s:=0;
for i:=1 to n do
begin
p:=p*x;
s:=s+p;
end;
writeln ('s=',s:10:3);
End.
Program Prog21a; {9}
Var i,n:integer;
p:real;
Begin
writeln('unesite n');
readln(n);
p:=1;
for i:=2 to n+1 do
p:=p*(1-1/i);
writeln ('p=', p:0:2);
End.
Program Prog25; {10}
var i,a,b,c : integer;
Begin
for i:=100 to 999 do
begin
c:=i mod 10;
b:= (i div 10) mod 10;
a:= i div 100;
if i=a+b*b+c*c*c then writeln (i);
end;
End.