1. program z1; var a,b,c,x1, x2:real; begin writeln('введите коэффициенты А (отличное от нуля), В и С '); readln(a,b,c); if sqrt(b*b-4*a*c)>0 then begin x1:=(-b+sqrt(b*b-4*a*c))/2/a; x2:=(-b-sqrt(b*b-4*a*c))/2/a; writeln('x1=',x1,', x2=',x2); end else if sqrt(b*b-4*a*c)=0 then begin x1:=(-b+sqrt(b*b-4*a*c))/2/a; writeln('x=',x1) end else writeln('уравнение не имеет корней'); end.
2. program z1; var b,c,x:real; begin writeln('введите коэффициенты B (отличное от нуля) и С '); readln(b,c); x:=-c/b; writeln('x<',x); end.
2 Кбайт/сек
Объяснение:
V = I / t, где
V - скорость передачи информации
I - количество информации в сообщении
t - время передачи сообщения
I = К * i, где
I - количество информации в сообщении
К - количество символов в тексте
i - количество информации, которое несет каждый символ алфавита
N = 2^i, где
N - мощность алфавита
i - количество информации, которое несет каждый символ алфавита
Дано:
t = 2 мин 8 сек = 128 сек = 2⁷ сек
N = 256 = 2⁸
К = 128 страниц * 32 строки * 64 символа = 2⁷ * 2⁵ * 2⁶ = 2¹⁸ символов
Найти:
V
2⁸ = 2^i
i = 8 бит = 1 байт
I = 2¹⁸ * 1 = 2¹⁸ байт
V = 2¹⁸ / 2⁷ = 2¹¹ байт/сек = 2 Кбайт/сек
1 мин = 60 сек
1 байт = 8 бит
1 Кбайт = 1024 байт = 2¹⁰ байт
program z1;
var a,b,c,x1, x2:real;
begin
writeln('введите коэффициенты А (отличное от нуля), В и С ');
readln(a,b,c);
if sqrt(b*b-4*a*c)>0 then
begin
x1:=(-b+sqrt(b*b-4*a*c))/2/a;
x2:=(-b-sqrt(b*b-4*a*c))/2/a;
writeln('x1=',x1,', x2=',x2);
end
else if sqrt(b*b-4*a*c)=0 then
begin
x1:=(-b+sqrt(b*b-4*a*c))/2/a;
writeln('x=',x1)
end
else writeln('уравнение не имеет корней');
end.
2.
program z1;
var b,c,x:real;
begin
writeln('введите коэффициенты B (отличное от нуля) и С ');
readln(b,c);
x:=-c/b;
writeln('x<',x);
end.