Предмет: Математика, автор: anford600GSjehdj

По кругу стоят 22 дерева, на каждом из которых сидят по одной сове. Каждую минуту две совы перебираются на соседние деревья. Могут ли она когда нибудь собраться вместе?

Ответы

Автор ответа: кек921

0

Нет не могут .ллллллл

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Английский язык, автор: Аноним

помогите плиииз дам 35 баллов

6 лет назад

Предмет: Русский язык, автор: lilita141103

Органы речи, которые видоизменяют (чаще всего усиливают) звуки – это
а) генераторы;
б) резонаторы;
в) форматоры.

6 лет назад

Предмет: Русский язык, автор: sysdan88

Что такое исконно русские слова?КРАТКО

6 лет назад

Предмет: Биология, автор: saamira

каких птиц называют перелетными и почему они улетают в теплые края?

10 лет назад

Предмет: Информатика, автор: 195801997

Var m,n:byte;
A:array[1..100,1..100] of integer;
Procedure Form;
Var I,j:byte;
Begin
Randomize;
For I:=1 to n do
For j:=1 to m do
A[i,j]:=random(280)-120;
End;

Procedure Viv;
Var I,j:byte;
Begin
For I:=1 to n do
Begin
Writeln;
For j:=1 to m do
Write(a[i,j]:5); End;
End;

Procedure saj;
Var i,j,k,b:integer;
begin
writeln;
writeln;

for b:=1 to n do
for i:=1 to n do
for j:=1 to m-1 do
if a[i,j] k:=a[i,j]; a[i,j]:=a[i,j+1]; a[i,j+1]:=k; end;
for b:=1 to n do
for i:=2 to n do
for j:=1 to m-1 do
if a[i,j] k:=a[i,j]; a[i,j]:=a[i,j+1]; a[i,j+1]:=k; end;
for b:=1 to n do
for i:=3 to n do
for j:=1 to m-1 do
if a[i,j] k:=a[i,j]; a[i,j]:=a[i,j+1]; a[i,j+1]:=k; end;
for b:=1 to n do
for i:=4 to n do
for j:=1 to m-1 do
if a[i,j] k:=a[i,j]; a[i,j]:=a[i,j+1]; a[i,j+1]:=k; end;
for b:=1 to n do
for i:=5 to n do
for j:=1 to m-1 do
if a[i,j] k:=a[i,j]; a[i,j]:=a[i,j+1]; a[i,j+1]:=k; end;
for i:=1 to n do begin
for j:=1 to m do
Write(a[i,j]:5);
writeln;
end;
end;

Begin
Readln(n,m);
Form; Viv;
saj;
Readln
End.

Записать в файл исходную и преобразованную матрицы! Как это сделать не могу понять?

10 лет назад