Var
a,b:array[1..100]of integer;
i,max,min,n:integer;
begin
readln(n);
max:=0; min:=32;
for i:=1 to n do
begin
readln(a[i],b[i]);
if a[i]>max then max:=a[i];
if b[i]<min then min:=b[i];
end;
if min>=max then
writeln('YES')
else writeln('NO');
end.
Пример:
3
1 5
3 10
4 14
<span>YES</span>
По ІР адресу можна найті код сайта
2,6 ГБайт = 2,6*1024 = 2662, 4 МБайт
2662, 4 МБайт = 2662, 4*1024 = 2726297,6 КБайт
2726297,6 КБайт = 2726297,6*1024 = 2791728742,4 Байт
Ответ: 2,6 ГБайт = 2791728742,4 Байт.
<span>read - оставляет курсор после прочтения на этой же строке</span>
<span><span>readln - переводит курсор на следующую строку</span></span>
<em>// PascalABC.NET 3.2, сборка 1427 от 24.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
Read(a,b);
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Writeln(a);
end.