Сначала кило байты переводим в биты
20 889 600 бит
Это число делим на 850
24576 сек
<span>(это написано чтобы хватило символов до 20(правила сайта))
Ответ: 6B1A3C1A6B</span>
Program chik;
var x,y:real;
begin
readln(X);
if(x<>0)then begin
y:=1/x;
writeln(y);
end;
if(x=0)then writeln('FALSE');
end.
Const n=10;
var a: array[1..n] of integer;
i:integer; p:real;
begin
randomize;
for i:= 1 to n do
begin
a[i]:=random(111)-70;
write(a[i]:4);
end;
writeln;
p:=1;
for i:= 1 to n div 2 do p:=p*a[2*i];
writeln('p = ',p:8:0);
end.
Пример:
<span> -51 34 -17 11 35 -20 -29 -58 -55 -32
p = -13882880</span>
Программа и пример её работы - в прилагаемом файле.