Var a,b,c:integer;
result:double;
begin
read(a,b,c);
result:=(a+b-c)/(a-b);
writeln(result);
end.
Const
N = 4;
Var
A:array[1..N,1..N] of integer;
i,j,k:integer;
Begin
Randomize;
WriteLn('1)');
k:=0;
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ');
if A[i,j] < 0 then k:=k+1;
End;
WriteLn
End;
WriteLn('k = ',k);
WriteLn('2)');
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
if j > i then A[i,j]:=100;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
WriteLn('3)');
For i:= 1 to N div 2 do
Begin
For j:= 1 to N do
Begin
k:=A[i+N div 2,j];
A[i+N div 2,j]:=A[i,j];
A[i,j]:=k;
End
End;
For i:= 1 to N do
Begin
For j:= 1 to N do
Write(A[i,j]:3,' ');
WriteLn
End;
End.
1)
10 2 -9 4
-10 5 -5 -10
4 9 4 10
3 -9 10 -6
k = 6
2)
10 100 100 100
-10 5 100 100
4 9 4 100
3 -9 10 -6
3)
4 9 4 100
3 -9 10 -6
10 100 100 100
-10 5 100 100
A2 = СУММ(A1:D1)/4 = (1 + 4 + 4 + 3)/4 = 3
B2 = B1 * D1 - C1 * 2 = 4 * 3 - 4 * 2 = 4
C2 = B1 * A2 - D1 - 6 = 4 * 3 - 3 - 6 = 3
D2 = C1 + C1/4 = 4 + 4/4 = 4 + 1 = 5
Итак, нужно найти диаграмму, на которой два элемента равны, еще один больше них примерно на 3, и последний примерно на столько же больше него. Это диаграмма 1.