функция

[Lemo]

Дано натуральное число п. Получить самое меньшее целое виду 2(в степени Y), который превосходит п.
Вот я начал писать код помогите дописать!

program Project1;
{$APPTYPE CONSOLE}
uses
  math;

var
 n:integer;
 r, y:real;
begin
write ('VVediT` n=');
readln (n);
write ('VVediT` r=');
readln (r);
y:=power(2,r);
writeln ('y=', y:6:2);
readln (y);
end.

[mihali4]

begin
write ('Vvedite` n=');
readln (n);
r:=1;
while power(2,r)<n do
r:=r+1;
r:=r-1;
y:=power(2,r);
write ('y=', y:6:2);
end.

[puporev]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;
var n,r:integer;
    y:real;
begin
write ('Vvedite` n=');
readln (n);
r:=0;y:=1;
while y<=n do
   begin
     y:=power(2,r);
     r:=r+1;
   end;
write ('y=', y:0:0);
readln
end.

[Lemo]

Спасибо, вроде работает.

program Project1;
{$APPTYPE CONSOLE}
uses
  math;

var
 n:integer;
 r, y:real;
begin
write ('Vvedite` n=');
readln (n);
r:=1;
while power(2,r)<n do
r:=r+1;
r:=r-1;
y:=power(2,r);
write ('y=', y:6:2);
readln;
end.

[Ламер_001]

че то странновато работает ваша программа, mihali4 при n = 1,2,4

begin
 write ('Vvedite` n=');
 readln (n);
 r := 0;
 while( power(2,r) <= n ) do r:=r+1;
 write ('y=', power(2,r):6:2);
end.

[Lemo]

мне кажеться верный вариант сделал puporev? но спасибо всем за помощь!

[mihali4]

Сообщение от Ламер_001

че то странновато работает ваша программа, mihali4 при n = 1,2,4

begin
 write ('Vvedite` n=');
 readln (n);
 r := 0;
 while( power(2,r) <= n ) do r:=r+1;
 write ('y=', power(2,r):6:2);
end.

А где R:=R-1; ???

[Lemo]

mihali4
так y должно быть больше чем n;