На двери деканата злоумышленники масляной краской нарисовали несколько карикатур на преподавателей. подозрение пало на известных хулиганов и вольнодумцев пашу и сашу. кроме того обнаружилось три свидетеля, которые заявили: первый: это они сделали вместе. второй: рисовал на двери только саша, паша в этом не участвовал. третий: если паша рисовал на двери, то саша тоже принимал в этом участие. какой вывод можно сделать из показаний свидетелей, если выяснилось, что все они врали, т.е говорили прямо противоположное тому, что было на самом деле? !

На двери рисовал только Паша.
Правда: 1.Это они сделали не вместе.
2.Саша не рисовал на двери, а Паша в этом участвовал.
3.Если Паша рисовал, то Саша не принимал участие.

1) От 10 до 14

2) random(1, 10); random(-10,10); random(50,100);

3)

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

   i, p, o:integer;

begin

 p := 0;

 o := 0;

 for i := 1 to 100 do

   a[i] := random(-20, 20);

 writeln(a);

 for i := 1 to 100 do begin

   if a[i] >= 0 then p := p + 1

   else o := o + 1;

 end;

 writeln('Положительных: ' + p);

 writeln('Отрицательных: ' + o);

end.

4)

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

   b:array[1..20] of integer;

   i:integer;

begin

 randomize;

 for i := 1 to 20 do

   begin

   a[i] := random(1, 5);

   b[i] := random(1, 5);

   end;

 for i := 1 to 20 do begin

   if a[i] = b[i] then begin

   writeln('Номер: ' + i);

   writeln('Значение: ' + a[i]);

   end;

 end;

end.

Var b,c:boolean;
a:integer;
begin
readln(a);
writeln(not odd(a));
if a mod 10 = 7 then b:=true;
writeln(b);
writeln(not odd(a mod 10));
end.

var r,a:integer;
begin
read(r,a);
if a*a>pi*r*r then writeln('Square')
else if a*a<pi*r*r then writeln('Circle')
else writeln('Equal');
end.

var m1,m2,v1,v2:integer;
begin
read(m1,v1,m2,v2);
if m1/v1>m2/v2 then writeln('p1>p2')
else if m1/m2<m2/v2 then writeln('p1<p2')
else writeln('p1=p2');
end.

var a,b:real;
begin
read(a,b);
b*=0.45;
if a>b then writeln(b)
else if a<b then writeln(a)
else writeln('Equal');
end.