Var a1,a2,a,n:integer;
begin
a1:=1; a2:=1;
n:=2;
while a2<=100 do
begin
a:=a1+a2;
a1:=a2;
a2:=a;
n:=n+1;
end;
writeln('n = ',n,' an = ',a2);
end.
Результат:
<span>n = 12 an = 144</span>
Пусть сначала сядут 1 космонавт и 1 остранафт перевернулся на корабль. 1 остранафт возвращается и отдаёт другомут астронавты и космонавту они перебираЮтся .потом 1 космонайти возвращается за остранафтом и забирает его обратно на корабль Победа !!!
P.S программы написаны для Pascal.
1)
program massive;
const
n=5;
var
a: array [1..n] of integer;
i,k:integer;
begin
randomize;
k:=0;
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
for i:=1 to n do
if a[i]>50 then
k:=k+1;
writeln('Чисел больших 50: ',k)
end.
2)
program massive;
const
n=5;
var
a: array [1..n] of integer;
i,k:integer;
begin
randomize;
k:=0;
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
for i:=1 to n do
if (a[i]>10) and (a[i]<30) then
k:=k+a[i];
writeln('Сумма чисел принадлежащих промежутку (10;30)= ',k);
end.
В 1 байте 8 битов 375 байтов - 3000 битов 1 символ - 6 битов
2 в степени 6 = 64 символа в алфавите