K=320 с
i=8 бит/с
I - ?
I=K*i=320 с * 8 бит/c = 320 c * 1 байт/с = 320 байтов
Program Pr;
Var
a : array [1..100, 1..100] of integer;
i, max, min, j, n: integer;
Begin
cls;
read(n);
min := 100000;
max := -100000;
for i := 1 to n do
for j := 1 to n do
begin
read(a[i,j]);
if (a[i,j] > max) then
max := a[i,j];
if (a[i,j] < min) then
min := a[i,j];
end;
writeln ('Сумма = ', min + max);
writeln ('Разность = ', max - min);
writeln ('Произведение = ', max * min);
<span>End.</span>
Cos2x=sinx-cosx
<span>cos²x-sin²x+(cosx-sinx)=0 </span>
<span>(cosx-sinx)(cosx+sinx)+(cosx-sinx)=0 </span>
<span>(cosx-sinx)(cosx+sinx+1)=0 </span>
<span>cosx=sinx => x=π/4+πn </span>
<span>cosx+sinx=-1 </span>
<span>sin(x+π/4)=-1/√2 </span>
<span>x+π/4=(-1)^(n+1) π/4+πk </span>
<span>x=-π/4+(-1)^(n+1) π/4+πk</span>
Program ZZZ;
var a, b, c : integer ;
begin
WRITELN ('Введите значения коэффициентов квадратного трехчлена a,b,c');
readln (a,b,c);
D:= b*b - 4*a*c;
WRITELN ('Дискриминант квадратного трехчлена равен ',D);
end.