Задание 1 Запрос Найдено страниц

(в тысячах)

(Испания & Америка) | (Испания & Индия) 800

Испания & Америка 600

Испания & Индия & Америка 50

Какое количество страниц (в тыс.) будет найдено по запросу Испания & Индия?

Задание 2.

Запрос Найдено страниц

(в тысячах)

Леннон & Маккартни & Старр 1100

Леннон & Маккартни & Харрисон 1300

Леннон & Маккартни & Старр & Харрисон 1000

Какое количество страниц (в тыс.) будет найдено по запросу

(Леннон & Маккартни & Старр) | (Леннон & Маккартни & Харрисон)?

.

varb: array [1..8] of integer; r,q: integer; begin  for r: =1 to 8 do  begin  q: =0;   read(b[r]);   end;   for r: =1 to 8 do  if b[r] mod 2=1 then q: =q+b[r];   writeln;   writeln('сумма нечетных чисел равна ',q); end.

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.

4мин=240 сек.

1 половина всего времени = 240/2=120 сек.

за перпую половину времени передалось = 120 сек * 117 кбит = 14040 кбит

за вторую половину времени передалось в 3 раза меньше (т.к. скорость была в 3 раза меньше) = 14040/3=4680 бит

всего передалсоь = 14040+4680=18720 кбит = 2340 кбайт

var a: array [1..16] of integer;

i,s,c,d: integer;

begin

  randomize;

  read(c,d);

  for i : = 1 to 16 do begin

      a[i]: = random(d+c) - c;

      if a[i]> 0 then s: = s + a[i];

  end;

  writeln(s);

end.