Смысл жизни для меня - жить, любить, дарить эмоции, учиться, терпеть поражения и подниматься на вершины. Я не кажусь человеком. Я и есть человек как существо. я могу высказать свои эмоции, дать отпор за себя, защитить слабого. В этом же и заключается человечность. Вами управляет тот, кто вас злит". Отчасти это правда. Тот кто нас злит "играет на наших нервах". Нервы как струны - могут не выдержать и лопнуть. Так кто нас злит может управлять нашим настроением! А ведь от настроения многое зависит. Если у вас хорошее настроение, то вокруг вас все прекрасно, вокруг вас много прекрасных людей! А когда у вас плохое настроение все идет на перекосяк. Дела не клеются, люди злые, срываешся на всех, нервы сдают. К тому же от настроения и от психологического состояния могут появляться заболевания. Так что в действительности можно сказать что Вами управляет тот, кто вас злит".
Поделитесь своими знаниями, ответьте на вопрос:
Написать программу, которая по двум заданным строкам, представляющим числа A и B в фибоначчиевой системе счисления,
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.