На Паскале:
3.1) (x=y) and (x=z)
3.2) ((x=y) and (x<>z)) or ((x<>y) and (x=z))
3.3) (x>0) and (y>0) and (z>0)
3.4) ((x>0) and (y<=0) and (z<=0)) or ((y>0) and (z<=0) and (z<=0)) or ((z>0) and (x<=0) and (y<=0))
3.5) (y>x) and (y<z)
<span>var x,y,a:integer;</span>
<span>c:boolean;</span>
<span>begin</span>
<span>readln(x); {считываем}</span>
a:=1;
<span>repeat</span>
writeln(a,' попытка выбор компьютера пал на - ');
<span>y:=random(x)+1; {задаем промежуток рандомом}</span>
write(y);
<span>if x=y {сравниваем} then c:=true; {выходим из цикла в случае успеха}</span>
<span>until c; {если с=true тогда выход из цикла, иначе крутимся дальше}</span>
writeln('Компьютер сделал ',a,' попыток.');
<span>end.</span>
<span>
</span>
Более доработанная и понятная, если возникают какие-то вопросы - пиши в личку.
program znanija.com;
var
s: string;
a:array[1..4] of integer;
i:integer;
begin
read(s);
for i:=1 to 4 do a[i]:=0;
for i:=0 to length(s) do
begin
if s[i]=')' then inc(a[1]);
if s[i]='(' then inc(a[2]);
if s[i]='!' then inc(a[3]);
if s[i]='.' then inc(a[4]);
end;
if(a[1]>a[2])and(a[1]>a[3])and(a[1]>a[4]) then write('Funny')else
if(a[2]>a[1])and(a[2]>a[3])and(a[2]>a[4]) then write('Sad') else
if(a[3]>a[2])and(a[3]>a[1])and(a[3]>a[4]) then write('Angry') else
if(a[4]>a[2])and(a[4]>a[3])and(a[4]>a[1]) then write('Deep') else
write('Unclear');
end.
31 в 2сс = 11111 , 5 бит на символ
длинна слова информатика = 11
ответ: 11 * 5 = 55