|
Program cse2;
Var
i,,j:integer;
Begin
For i:=1 to 6 do
Begin
Write(‘’:i*2-2);
For j:=7-i downto 1 do
Write(j:2);
Writeln;
End;
End.
Program cse3;
var a,i,j:longint;
begin
for i:=1 to 3 do
for j:=1 to 3 do
if i<>j then
writeln(i*10+j);
end.
program cse4;
var a,b,c,d,e,f,g,h,i,j,k,l:longint;
y:array[0..100000]of longint;
t:array[1..100000,1..2]of longint;
begin
read(d,a);
for i:=1 to a do
begin
read(t[i,1],t[i,2]);
if t[i,1]>t[i,2] then begin b:=t[i,1];t[i,1]:=t[i,2];t[i,2]:=b;end;
for j:=t[i,1] to t[i,2] do
y[j]:=1;
end;
for i:=0 to d do
if y[i]=0 then h:=h+1;
write(h);
end.
program cse5;
var i,n,m,t:integer;
s,y:string;
begin
readln(s);
readln(n);
m:=length(s);
for i:=1 to n do
begin
t:=1;
while ((t<length(s)) and (s[t]<=s[t+1])) do inc(t);
delete(s,t,1);
end;
while ((s[1]='0') and (length(s)>0)) do delete(s,1,1);
writeln(s);
readln;
end.
|