В таблице приведены запросы и количество найденных по ним страниц некоторого сегмента сети. Считается, что все вопросы выполнялись практически одновременно, так что набор страниц содержащих все искомые слова, не изменялся за время выполненных запросов. Запрос Найдено страниц (в тысячах)
Царевна | Лягушка 157
Царевна & Лягушка 56
Царевна 95
Какое количество страниц (в тысячах) будет найдено по запросу Лягушка?
Program temperature;
Uses crt;
Var
x : array [1..2,1..12] of real;
t,m,i : integer;
z,v,l,o : real;
Begin
z:=0;v:=0;l:=0;o:=0;
for i:=1 to 12 do
x[1,i]:=i;
x[2,1]:=-11;x[2,2]:=-31;x[2,3]:=-18;x[2,4]:=-7.5;x[2,5]:=5.8;x[2,6]:=10;x[2,7]:=18;
x[2,8]:=22.2;x[2,9]:=24;x[2,10]:=17;x[2,11]:=5.4;x[2,12]:=-7;
for i:=1 to 3 do
z:=z+x[2,i];
for i:=4 to 6 do
v:=v+x[2,i];
for i:=7 to 9 do
l:=l+x[2,i];
for i:=10 to 12 do
o:=o+x[2,i];
z:=z/3;v:=v/3;l:=l/3;o:=o/3;
writeln('Средняя температура зимних месяцев = ',z:3:1);
writeln('Средняя температура весенних месяцев = ',v:3:1);
writeln('Средняя температура летних месяцев = ',l:3:1);
writeln('Средняя температура осенних месяцев = ',o:3:1);
End.
Program num2;
Uses crt;
Var
x :array[1..100] of integer;
i, n : integer;
Begin
clrscr;
write('N=');readln(n);
for i:=1 to n do
begin
write('x[',i,']=');readln(x[i])
end;
for i:=1 to n do
if x[i]<0 then writeln('x[',i,']<0 and x[',i,']=',x[i]);
End.
Иванов и Андреев - не солисты хора, так как были на его концерте [1], отсюда единственная возможность - солист хора - Петров.
Петров незнаком с Андреевым [4], но позировал художнику [2], поэтому знаком с ним. Значит, Андреев - не художник, Андреев - танцор.
Для Иванова остался последний вариант, Иванов - художник.