Помогите пожалуйста!!!нужно написать программы ** паскале! 1) дано целое число m>1....

Question

Помогите пожалуйста!!!нужно написать программы на паскале!

1) дано целое число m>1. получить наибольшее целое k, при котором 4^k(четыре в степени k)

2)дано натуральное число n, получить наименьшее число вида 2^r(два в степени r), превосходящее n.

3)дано натуральное число n. вычислить 1*2+2*3*4+...+n*(n+1)*...*2n (*-знак умножения)

4)Вычислить:

1

_____________

1

1 + _________

1

3 + _________

1

5 + ________

......

1

101 + ___

103

(______________ - дробь)

помогите чем сможете, пожалуйста!

Answer 1

program z1;
var
i,j,m,k,z,x,l:integer;
begin
readln(m);
for i:=0 to m do begin z:=1;
if i=0 then z:=1 else begin
x:=i;
while x<>0 do begin
z:=z*4;
x:=x-1;
end; end;
if ((zm)) then writeln(i);
if z=m then writeln(i-1);
end;
end.

 

program z2;
var
i,j,n,k,z,x,l:integer;
begin
readln(n);
for i:=0 to n do begin z:=1;
if i=0 then z:=1 else begin
x:=i;
while x<>0 do begin
z:=z*2;
x:=x-1;
end; end;
if ((z>n) and (z/2if z=n then writeln(i+1);
end;
end.

 

program z3;
var
i,j,n,k,z,x,s:integer;
begin
readln(n); s:=0;
for i:=1 to n do begin z:=1;
for j:=i to 2*i do
z:=z*j;
s:=s+z; end;
writeln(s);
end.

 

время 2 ночи 

...думаю пора спать )