Ответ:
Желтым я выделила правильные ответы.Буду благодарна,если вы отметите мой ответ,как лучший
1*60*40*150 = 360000 байт ~= 352 кб в одной книге
700*1024 = 716800 кб на диске
716800/352 = 2036 целых книг
CLASS - имя каталога, значит полное - D:\USER\CLASS.
К электросети
К локальной сети
К интернет
К монитору
К станку
К машине
и т.п.
Var a: array[1..7] of real;
k, n: integer;
begin
readln(k, n);
for i:=1 to 7 do begin
read(a[i]);
if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
write(a[i], ' ');