Лёгкая задачка ПОМОГИТЕ ПЛЗ

[EvilFallos]

Вообщем задача вроде ОЧ легкая но я полный 0 в паскале но мне нужно срочно

" Дано натуральное число n. Получить наименьшее число вида 2^r превосходящее n"
и ещё если можете напиши переменные что использовали ( напр n- исследуемое число, I- переменаая циклов ) ПЛЗ мпомогите срочно нужно

[BBB]

Видимо, от тебя хотят увидеть что-то вроде этого:

Код: Выделить всё

var wPowerOf2 : word;
    wPower : word;

begin
  wPowerOf2 := 1;   // искомое число
  wPower := 0;  // Искомый показатель степени "двойки"

  while (N > wPowerOf2) do begin
    wPowerOf2 := wPowerOf2 * 2;
    Inc (wPower);
  end;

  writeln ('Наименьшая степень 2-х, большая ', N, ' равна: ', wPowerOf2, ' (2 в степени ', wPower, ')');

end.

[EvilFallos]

СПАСИБО =))

[EvilFallos]

эммм а само число N в type писать ?? ну и соответсвенно как прально и где задать N ( так чтоб прога тебя спросила N ) ???

[Serge_Bliznykov]

в секции переменных
var N : integer;

а в программе
...
WriteLn;
Write('Введите N: ');
Readln( N );
...

[Хыиуду]

Как вариант
writeln('Введите N');
readln(N);
Для кого-то оно так привычнее