1кигобайт,1000 байтов. 1байт, 1024бита, 1бит в учебнике все это есть полистай
![3.1) \ x=y \land x=z \\ 3.2) \ x=y \land x\ne z \lor x\ne y \land x=z \\ 3.3) \ x>0 \land y>0 \land z>0 \\ 3.4) \ x>0 \land y\le0 \land z\le0 \lor y>0 \land x\le0 \land z\le0 \lor \\ z>0 \land x\le0 \land y\le0](https://tex.z-dn.net/?f=3.1%29+%5C+x%3Dy+%5Cland+x%3Dz+%5C%5C+3.2%29+%5C+x%3Dy+%5Cland+x%5Cne+z+%5Clor+x%5Cne+y+%5Cland+x%3Dz+%5C%5C+3.3%29+%5C+x%3E0+%5Cland+y%3E0+%5Cland+z%3E0+%5C%5C+3.4%29+%5C+x%3E0+%5Cland+y%5Cle0+%5Cland+z%5Cle0+%5Clor+y%3E0+%5Cland+x%5Cle0+%5Cland+z%5Cle0+%5Clor+%5C%5C+z%3E0+%5Cland+x%5Cle0+%5Cland+y%5Cle0)
![3.5) \ y>x \land y<z](https://tex.z-dn.net/?f=3.5%29+%5C+y%3Ex+%5Cland+y%3Cz)
На Паскале:
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)
var
x, count:integer;
begin
write('x = '); readln(x);
write('Количество троек в числе ', x, ' - ');
while x > 0 do
begin
if x mod 10 = 3 then
count := count + 1;
x := x div 10;
end;
writeln(count);
end.