цикл if

[Veronika_13]

найти наибольшее число вида 1/2^n (n>=0), меньшее а (положительное число а задано). Организуя чтение исходных данных из файла данных и вывод результата в файл данных. Рascal ABC.

[Stilet]

Предположу что так:

var f:text; n,a:integer;
begin
 assignfile(f,'f');reset(f); read(f,a);closefile(f);
 n:=0;
 while (1/(1 shl n))>a do inc(n);
 write(1/(1 shl n));
 readln;
end.

[Veronika_13]

нужен цикл

[BDA]

while...do - это цикл.