Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
Begin
if (N mod 10) > A then A:= N mod 10;
N:=N div 10;
End;
Write(A)
End.
Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
Begin
if A=B then C:=true;
if N>0 then
Begin
A:=N mod 10;
N:=N div 10;
End;
if A=B then C:=true;
if N>0 then
Begin
B:=N mod 10;
N:=N div 10;
End;
End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.
Подробнее - на -
Program Massive;
uses Crt;
const
K = 3;
L = 6;
var
Z: array [1..K * L] of integer;
R: array [1..K * L] of integer;
Q: array [1..K * L] of integer;
i: integer;
x: integer;
begin
Randomize;
x := K * L;
for i:= 1 to x do
begin
Z[i] := Random(20);
R[i] := Random(10);
end;
ClrScr;
writeln('Massive Z:');
for i:= 1 to x do
write(Z[i]:4);
writeln;
writeln('Massive R:');
for i:= 1 to x do
write(R[i]:4);
writeln;
for i:= 1 to x do
Q[i]:= Z[i] * R[i] + 10;
writeln('Massive Q:');
for i:= 1 to x do
write (Q[i]:4);
readln
end.
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
YES