Ответы и объяснения

Лучший Ответ!
  • Участник Знаний
2014-03-22T08:12:33+00:00
1)
var m,k,d:integer;i:real;
begin
read (m);
if (m>1)then
begin
for k:=1 to m do
begin
i:=power(4,k);
if (i<m) then d:=k;
end;
end;
writeln (d);
end.
2)
var n,r:integer;i:real;
begin
read (n);
if (n>1) then
begin
for r:=1 to n do
begin
i:=power(2,r);
if (i>n)then
begin
writeln (i);
halt;
end;
end;
end;
end.