5 Мбайт*1024 = 5120 Кбайт
5120 Кбайт/16 сек= 320 Кбайт/сек
320 Кбайт/сек*3 =960 Кбайт/сек
960Кбайт/сек*10 сек=9600 Кбайт
Var
Ch,Z:real;
i:integer;
Begin
Ch:=0;
For i:= 1 to 100 do
if i mod 7 = 0 then Ch:=Ch+i;
Z:=0;
For i:= 100 to 500 do
if i mod 17 = 0 then Z:=Z+i;
WriteLn(Ch,'/',Z,' = ',Ch/Z);
End.
Результат работы программы:
735/7140 = 0.102941176470588
6, потому что мышь не являеться нужным для работы ПК