Var x,y:real;
begin
readln(x,y);
if (y<x)and(x*y<0)
then writeln('Yes') else writeln('No');
end.
Пример:
1 -2
Yes
Всі, крім двох - персики
всі, крім двох - груші
всі, крім двох - яблука.
отже 2 яблука+ 2 персика+2 груші = 6 фруктів
368+36008+3600008+360000008 = 363636392 (В десятеричной)
363636392 = 15АСА6А8 (в шестнадцатеричной)
15АСА6А8 = 1
5
6
8
А
А
А
<span>С в порядке возростания</span>
Var
best, m, s,i: integer;
begin
best := 10000000;
for i:= 1 to 3 do begin
write('min sec = ');
readln(m, s);
if best > m * 60 + s then best := m * 60 + s;
end;
writeln('Лучший = ', best div 60, ' min ', best mod 60, ' sec');
end.
1) e
2) b
3) a
4) d
5) c
6) --
7) a
8) --
9) --
10) a