Точка принадлежит прямоугольнику и треугольнику или прямоугольнику, но не кругу:
Б) С * НЕ(НЕ В * А)= С* В +С* неА
Var
a:array[1..10]of array[1..10] of integer;
i, j ,P: Integer;
Begin
randomize;
writeln('Массив:');
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin a[i][j]:=random(21)-10;
write(a[i][j]:5);
end;
writeln;
end;
for i := 1 to 10 do
if a[i][i] < 0 then
begin P:=1;
for j := 1 to 10 do
P:=P*a[i][j];
writeln(i,'-я строка, П=',P);
end;
writeln;
<span>End.</span>
Определим общее количество байт в тексте
900*2=1800
определим, сколько килобайт информации будет
1800/1024= 1.7578125
округляем, получится
1.76
ответ 1.76 Кбайт информации
1 байт = 8 бит
128 000 бит делим на 8 = 16000 байт/сек.
Дальше
1 Кб = 1024 байта
250 Кб х 1024 байта = 256 000 байт
Делим их на скорость (16 000 байт за сек)
и получаем 256000/16000 = 16 сек.