Экономика
У вас есть три пользователя: Виталий, Андрей и Павел, которые не дружат друг с другом. Известно, что у Виталия и Андрея 77 общих друзей, у Андрея и Павла 81 общих друзей, а у Павла и Виталия 85 общих друзей. Известно также, что всего у Виталия 148 друзей, у Павла 98 друзей, а у Андрея 128 друзей.
Каково минимальное количество пользователей соцсети, которые дружат и с Павлом, и с Виталием, и с Андреем?
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.
Записать в файл исходную и преобразованную матрицы! Как это сделать не могу понять?
МАТЕМАТИЧЕСКАЯ ОБРАБОТКА ЭКСПЕРИМЕНТАЛЬНЫХ ДАННЫХ
ЗАДАНИЕ: Для функции, заданной таблично, подобрать эмпирическую зависимость и найти параметры приближающей функции методом наименьших квадратов.
№25 x 0,2 0,3 0,4 0,5 0,6 0,7 0,8 0,9
y 4,030 4,142 4,251 4,958 4,478 4,593 4,465 4,362
