Ну раз используют для записи цифры 0 и 1. то достаточно системы с основанием 2
счётчик цикла должен быть целым, т. е. integer!!
Var x,a,h:integer;
begin
read(x);
while a<=x-3 do
begin
a:=a*2;
h:=h+3;
end;
writeln(h);
end.
вроде бы как то так у меня баги паскаля на компе поэтому проверить не получилось. если что попробуй убрать "-3" в 4 строке. а так должно работать.
чето зип архив оно не принимает. пиши вличку мыло, вышлю
<head>
<title>Frames</title>
</head>
<frameset border="1" rows ="200,200,200,200"cols="200,200,200,*">
<frame src=01.html name=01>
<frame src=02.html name=02>
<frame src=03.html name=03>
<frame src=04.html name=04>
<frame src=05.html name=05>
<frame src=06.html name=06>
<frame src=07.html name=07>
<frame src=08.html name=08>
<frame src=09.html name=09>
<frame src=10.html name=10>
</frameset>
1) 400.16( немного ниже)=4*16 2(степень 2)=4*256=1024байт= 1 кбайт
2)<span>FFh слов = 255 слов 1/4 кбайта - 256 байт 1 слово=1 байт</span>