...
while x<>1 do
begin
x:=x div 2;
inc (t);
end;
write (t);
...
P.S. твое врем я это степень двойки, а именно
<span><span>Дано | Решение
m1=20г | n(дискет)=80000000/1440=55555(количество)
<span>
дискета=1440 Кбайт | m2=n(дискет)*m1=55555.6*20=1111111(г)
</span>
<span>
ж.д=80Гб
</span>
</span></span>
Количество информации вычисляется по формуле log(2)10≈3,32