интервал записывается как двойное условие (в скобках через and или or)
if (a < 4.2) or (a > 8.4) then power(a, 3);
аналогично для других переменных.
1) 128000:8=16000 байт/c
2) 625*1024=640000 байт
3) 640000:16000=40 с - t1
4) 512000:8=64000 байт/с
5) 640000:64000=10 с - t2
6) 40-10=30
Ответ на 30 с
const N=30;
var a:array[1..N] of integer;
i, j, k, imax, kmax: integer;
begin
kmax:=0;
imax:=0;
for i:=1 to N do readln(a[i]);
k:=0;
for j:=1 to a[i] div 2 do if a[i] mod j =0 then inc(k);
if k>kmax then begin
kmax:=k;
imax:=i;
end;
end.
N i K
8 3 200*3=600
16 4 110*4=440
64 6 120*6=720
128 7 100*7=700
256 8 80*8=640
Вам ответы нужны или что?