Александрович833
?>

Написать программу, которая по двум заданным строкам, представляющим числа A и B в фибоначчиевой системе счисления,

Другие предметы

Ответы

dashakhmeleva6
Var b, c, d : string;
  a : array [1..255] of byte;
  i, k, m : integer;
  f1, f2 : text;
begin
  assign(f1,'input.txt'); reset(f1);
  readln(f1,b); readln(f1,c);
  if length(b)<length(c) then
  begin d:=b; b:=c; c:=d end;
  for i:=1 to length(b)-length(c) do c:='0'+c;
  m:=length(b);
  for i:=1 to 255 do a[i]:=0;
  for i:=1 to m do
    a[i]:=ord(b[m+1-i])+ord(c[m+1-i])-96;
  k:=1;
  repeat
    if k=1 then
    begin
      if a[1]>1 then
      begin
        a[1]:=0; if m<2 then m:=2; a[2]:=a[2]+1
      end;
      k:=k+1
    end;
    if k=2 then
    begin
      if a[2]<2 then
        begin
          if (a[2]=1) and (a[1]=1) then
          begin
            a[1]:=0; a[2]:=0; if m<3 then m:=3; a[3]:=a[3]+1
          end;
          k:=k+1
        end
      else
      begin
        if m<3 then m:=3; a[3]:=a[3]+1;
        if a[1]=0 then
          begin
            a[1]:=a[1]+1; a[2]:=a[2]-2; k:=1
          end
        else
          begin
            a[1]:=0; a[2]:=a[2]-1;
          end
      end
    end;
    if k>2 then
      if a[k]<2 then
        begin
          if (a[k-1]=1) and (a[k]=1) then
          begin
            a[k-1]:=0; a[k]:=0; if k+1>m then m:=k+1; a[k+1]:=a[k+1]+1
          end;
          k:=k+1
        end
      else
        begin
          if k+1>m then m:=k+1; a[k+1]:=a[k+1]+1;
          if a[k-1]=0 then
            begin
              a[k-2]:=a[k-2]+1; a[k]:=a[k]-2; k:=k-2
            end
          else
            begin
              a[k-1]:=0; a[k]:=a[k]-1
            end
        end
  until k>m;
  assign(f2,'output.txt'); rewrite(f2);
  for i:=m downto 1 do write(f2,a[i]); close(f2)
end.
premiumoft

Смысл жизни для меня - жить, любить, дарить эмоции, учиться, терпеть поражения и подниматься на вершины. Я не кажусь человеком. Я и есть человек как существо. я могу высказать свои эмоции, дать отпор за себя, защитить слабого. В этом же и заключается человечность. Вами управляет тот, кто вас злит". Отчасти это правда. Тот кто нас злит "играет на наших нервах". Нервы как струны - могут не выдержать и лопнуть. Так кто нас злит может управлять нашим настроением! А ведь от настроения многое зависит. Если у вас хорошее настроение, то вокруг вас все прекрасно, вокруг вас много прекрасных людей! А когда у вас плохое настроение все идет на перекосяк. Дела не клеются, люди злые, срываешся на всех, нервы сдают. К тому же от настроения и от психологического состояния могут появляться заболевания. Так что в действительности можно сказать что Вами управляет тот, кто вас злит".

omraleva
Практично відразу після розлучення, в 1816 році, залишає Англію і відправляється в подорож. Якийсь час проводить в Швейцарії і подорожує по ній. Потім відвідує Венецію. Потім часто переїжджає спочатку в Равенну, потім в Пізу, далі – в Геную. Він багато подорожує до його переїзду до Греції.

Сам Байрон бачив себе передусім як суспільного діяча та політика, а вже потім - як поета. В той час, греки знаходились під гнітом Османської імперії і Байрон не раз висловлював свою позицію стосовно незалежності Греції. Після спалаху революції Байрон твердо вирішив долучитись до національно-визвольної боротьби греків. За власні кошти Байрон купив невеликий англійський парусний корабель, спорядив зброєю та провізією близько п'ятисот солдатів та разом з ними відправився до Греції. По прибуттю Байрон зрозумів, що повстання дуже погано організоване. Різко бракувало зброї, одягу та навіть їжі, а між ватажками революції велись постійні суперечки. Тоді Лорд Байрон вирішив продати все своє майно в Англії, а виручені кошти витратив на підтримку повстанського руху. Він мав брати участь в масштабному нападі на турецьку фортецю Лепанто і навіть готувався до експедиції, однак стан здоров'я поета постійно погіршувався і після того, як потрапив під сильну зливу він остаточно захворів. Байрон ще декілька місяців боровся з хворобою, але інфекція тане компетентність лікарів відіграли свою фатальну роль.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Написать программу, которая по двум заданным строкам, представляющим числа A и B в фибоначчиевой системе счисления,
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Федорович Шахова241
zaschitin48
Jannadon77
Yumashev
ivan-chay19
elenaowchinik4842
Ainura Pokhomova
yaudo47
iamhrusha
Snimshchikov465
drappaeva68
Vkois56
aetolstih
pechyclava
apro3444595