Var
y:real;
n:integer;
Begin
y:=0;
For n:= 4 to 20 do
y:=y+1/(n+1);
WriteLn('y = ',y);
End.
2) 135/2=67 (1)
67/2=33 (1)
33/2=16 (1)
16/2=8 (0)
8/2=4 (0)
4/2=2 (0)
2/2=1 (0)
1/2=0 (1)
135=10000111
257/2=128 (1)
128/2=64 (0)
64/2=32 (0)
32/2=16 (0)
16/2=8 (0)
8/2=4 (0)
4/2=2 (0)
2/2=1 (0)
1/2=0 (1)
257=100000001
3)2^7*1+2^6*0+2^5*1+2^4*1+2^3*1+2^2*1+2^1*1+2^0*1=128+32+16+8+4+2+1=191=10111111
2^7*0+2^6*0+2^5*1+2^4*1+2^3*1+2^2*1+2^1*1+2^0*1=32+16+8+4+2+1=63=00111111
Первое и третье, все остальное бесконечно
//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of integer;
i,j,k:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(-3,3);
write(ar[i]:4);
end;
for i:=1 to n-1 do {ммм, пузырёк. Но за быструю сортировку здесь репортят}
for j:=i+1 to n do
if ar[i]>ar[j] then
begin
k:=ar[i];
ar[i]:=ar[j];
ar[j]:=k;
end;
writeln;
writeln('Sorted array:');
for i:=1 to n do
write(ar[i]:4);
writeln;
for i:=1 to n do
if ar[i]=0 then
begin
write('Index of 0 is ',i);
break;
end;
end.
<span>Пример работы программы:
First array:
-2 -3 0 -3 3
Sorted array:
-3 -3 -2 0 3
Index of 0 is 4</span>