Var
a, b, x, y, z: real;
begin
readln(a, b, x, y, z);
if ((a < x) and (b < y)) or
((a < x) and (b < z)) or
((a < z) and (b < y)) then
writeln(true)
else writeln(false);
end.
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
a.Sort; a.Println;
Writeln('Кол-во разных чисел равно ',a.Distinct.Count)
end.
<u>Пример</u>
n= 13
-1 1 3 -2 8 -9 9 -1 -8 -8 9 -9 2
-9 -9 -8 -8 -2 -1 -1 1 2 3 8 9 9
Кол-во разных чисел равно 9
1) выполняется & : 9&26; 9=1001 (2cc) 26=16+8+2=11010 (2cc)
11010 &
01001
------------
01000 - результат побитовой 9&26 (лог умножение)
2) 15=1111 (2cc)
1111 |
1000
---------------
1111 - результат первой | (ИЛИ - лог сложение)
3) 12=8+4=1100 (2сс)
1111 |
1100
-------------
1111 - результат второй |
4) 29=16+8+4+1=11101 (2cc)
11101 ^
01111
----------------- результат ^
10010 =2^4+2^1 =16+2=18 ответ 18
const
p = 3.14;
var
L, S:real;
begin
write('L = '); readln(L);
writeln('S = ', sqr (L / (2 * p)) * pi);
end.