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

480÷6×5000-37859=, (35700-280÷4)÷10=, (163540+36460)÷2÷2÷2=,(354800-174380-180000)÷7=.

Ответы

Автор ответа: Марина66Умничка

0

362141 ,3563,25000,60

Автор ответа: Аноним

0

спасибо

Автор ответа: Марина6Умничка

0

спасибо

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

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

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

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

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

5 лет назад

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

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

5 лет назад

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

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

5 лет назад

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

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

9 лет назад

Предмет: Информатика, автор: 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.

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

9 лет назад