Задача очевидная и очень простая.
Var
b: double;
begin
readln(b);
writeln('z = ', System.Math.Pow(sin(4 * sqr(3 * b - 4)), 4));
<span>end.</span>
Program kvur;
var a,b,c,d: real;
begin
writeln('Решение квадратного уравнения(ax^2+bx+c=0).');
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
d:=sqr(b)-4*a*c;
writeln('вы ввели:');
writeln('a= ',a);
writeln('b= ',b);
writeln('c= ',c);
writeln('D=b*b-4*a*c=',d);
if (d>0) then begin
writeln('D>0 => уравнение имеет 2 действительных различных корня ');
writeln('x1= ',(-b+sqrt(d))/(2*a));
writeln('x2= ',(-b-sqrt(d))/2*a);
end else if (d=0) then begin
writeln('D=0 => уравнение имеет 2 совпадающих корня');
writeln('x1=x2=',-b/(2*a));
end else writeln('D<0 => уравнение не имеет действительных корней');
end.
Общий вес текста/сообщения
I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)
K = 111 * 40 * 50 шт = 222000 шт
Пусть i = 8 бит (Кодировка ASCII)
Вес текста I = 222000 * 8 бит = 1776000.0 бит
1776000.0 бит = 222000.0 байт = 216.796875 Кбайт = 0.2117156982421875 Мбайт = 0.00020675361156463623 Гбайт = 2.0190782379359007e-07 Tбайт
1776000.0 бит = 1734.375 Кбит = 1.6937255859375 Мбит = 0.0016540288925170898 Гбит = 1.6152625903487206e-06 Tбит
[9600, 1776000.0]
t = I / v (t - время передачи, I - объем данных, v - скорость передачи)
Время t = 1776000.0 / 9600 = 185.0 c = 3.0833333333333335 минут
Var a:array[1..12,1..20] of real;
i,j,n:integer;
s:real;
begin
// Заполним массив случайными значениями для теста
for i:=1 to 12 do
for j:=1 to 20 do
a[i,j]:=random*20000;
writeln('Номер сотрудника ');
readln(n);
for i:=1 to 12 do
s:=s+a[i,n];
writeln('Зарплата за год ',s);
end.
