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>
Думаю что 0.Символ ,,&"Нет в поисковой системе.Ну это не точно)
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
1)
begin
var x := ReadReal('x =');
Writeln(abs(x**2 - x**3) - 7*x/(x**3 - 15*x));
end.
2)
begin
var x := ReadReal('x =');
if (x <= 0) then
Writeln(0)
else
if (x <= 1) then
Writeln(x)
else
Writeln(x**4);
end.
Очевидно сообщение по объему уменьшится вдвое. Таким образом в 8-битной кодировке сообщение будет 60 байт. 1 байт = 8 бит.
То есть 60 символов длина сообщения.
Вот TURBO PASCAL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
<span>uses crt;
var i,sum,tmax,tmin:integer;sred:real;
t:array [1..30] of integer;
begin
clrscr;
sum:=0;
writeln('vvedite T -> ');
for i:=1 to 6 do begin
write(i,' zamer t = ');
read(t[i]);
end;
tmax:=t[1];
tmin:=t[1];
for i:=2 to 6 do begin
if t[i]>tmax then
tmax:=t[i];
if t[i]<tmin then
tmin:=t[i];
end;
for i:=1 to 6 do
sum:=sum+t[i];
sred:=sum/6;
writeln('Max T = ',tmax);
writeln('Min T = ',tmin);
writeln('srednyaya T = ',sred:3:3);
readkey;
<span>end</span></span>