А где собственно задание?
Картинка длжна быть в папке с программой и быть в формате BMP
Var a,a1,a2:integer;
Begin
a1:=1;
while(a<1000) do begin
a:=a1+a2;
a2:=a1;
a1:=a;
writeln(a) end;
<span>End.
Получились числа:</span>1 2 3 5 8 13 21 34 55 89 144 233 377 610 <span>987</span>
Log2(64) = 6 битов на символ. А байт у нас 8-битовый. Естественно, только дeбил будет один символ разносить по разным байтам. Поэтому на символ у нас один байт. Соответственно, текст занимает 800 байтов.
Легко. Нигде не сказано, что все четверо подошли к одному берегу, на самом деле они подошли по двое с каждого берега. Сначала одна пара переправилась, потом вторая и лодка вернулась на исходное место.