uses math;
var
a, b, c: Integer;
S, p: Real;
begin
readln(a);
readln(b);
readln(c);
p := (a + b + c) / 2;
S := sqrt(p * (p - a) * (p - b) * (p - c));
writeln(S:0:1);
end.
Var a: array of integer; // Объявление массива целых чисел
i, n: integer; // объявление целочисленных переменных
begin
// Запросим с клавиатуры размер массива
// и запишем его в переменную n
write('введите n:');
readln(n);
// Теперь выделим память под n элементов массива
SetLength(a, n);
// теперь запросим с клавиатуры n чисел для массива
for i := 0 to n-1 do begin
write('a[', i, ']=');
readln(a[i]);
end;
// теперь в цикле уменьшим каждый элемент на единицу
for i := 0 to n-1 do
a[i] := a[i] - 1;
// распечатаем массив
for i := 0 to n-1 do
write(a[i], ' ');
<span>end.</span>
1) 20*1024*8 /100=1638,4 ≈1638 бит/с скорость первоначально
2) 1638+512=2150 бит/с повысили скорость
3) 20*1024*8/2150≈76,204≈76 с
Ответ: 76 с
На DVD-записывают фильмы!А на CD-музыку,игры и т.п