Вот расчеты. Числа правда получаются не целые. А ты уверен, что сфотал все данные?
Гипермедиа содержит в себе графику видео звук и информацию для создания среды любого восприятия
201 258 7DA Советую скачать двоичный калькулятор)
Сначала 9Кбайт переделываем просто в байты. Поэтому 9*1024=9216. Потом переводим в биты? 9216*8=73728. И делим на 2048. Получается 36 секунд.
1)
var k,a,i,n : integer;
t : Text;
begin
readln (k);
n := 0;
Assign (t,'test.txt');
Reset(t);
i := 1;
while not Eof(t) do
begin
read (t,a);
if a = k then
n := i;
i := i +1;
end;
Close (t);
writeln (n);
<span> end.
2)
var
t,t1,t2 : Text;
i : integer;
a : real;
begin
Assign (t,'text.txt');
Reset (t);
Assign (t1,'r1.txt');
rewrite (t1);
Assign (t2,'r2.txt');
rewrite (t2);
i := 1;
while not Eof(t)
do
begin
read (t,a);
if i mod 2 = 1 then
write (t1,a:3:3,' ')
else
write (t2,a:3:3,' ');
i:= i +1;
end;
Close (t);
Close (t1);
Close (t2);
<span> end.</span>
</span>