I, j: integer;
a: array [1..100, 1..100] of integer;
begin
readln(a[1][1], a[1][2]);
for i := 3 to 30 do
a[1][i] := a[1][i - 1] + a[1][i -2];
for i := 2 to 30 do
for j := 1 to 30 do
begin
if (j > 2) then
a[i][j] := a[i][j - 1] + a[i][j - 2]
else
if (j = 2) then
a[i][j] := a[i][1] + a[i - 1][30]
else
a[i][j] := a[i - 1][30] + a[i - 1][29];
end;
for i := 1 to 30 do
begin
for j := 1 to 30 do
write(a[i][j],' ')
writeln;
end;
end.
Вот, сорри если что пишу без компилятора
1*1+2-(3+4)+5=1*1+2+3-4+5-6=1*1*2*3*4-5*6+7=(1+1-2+3)-(4+5-6+7-8)=1
Defrag.exe format.com regedit.com fdisk.exe я токо столько знаю .
Лиса: живет, дышит, ест, лапы, когти
Медведь: живет, дышит, ест, лапы, когти
Слон: живет, дышит, ест, травоядный, есть ноги
Лось:живет, дышит, ест, травоядный, есть ноги
Мне кажется так но у не уверена
Если понять принцип формирования числа в восьмеричной системе счисления, то станет ясно - после каждого перехода от семерки к новому числу, прибавляется одна цифра. Если 17 перевести в двоичную, получим 1111. Значит, следующее число даст нам 10000. В восьмеричной системе следующим будет 20
