a)
program example1;
var st, st1:string;
i,j,k,n:integer;
flag:boolean;
const
znak=[' ','.',',',':',';','!','?'];
begin
end.
:
t-
st1 -
i,j,k,n -
flag - ,
) writeln(' '); readln(st);
) repeat
while st[1] in znak do delete(st,1,1);
) i:=1 while (not (st[i] in znak)) and (i<=length(st)) do inc(i);
st1:=copy(st,1,i-1);
flag:= false;
) while (pos('',st1)>0) and (not flag) do begin
) j:=pos('',st1); n:=j; k:=0;
while st1[n]='' do begin inc(n); inc(k); end;
if k=2 then flag:= true;
delete(st1,j,k)
end;
) if flag then writeln(copy(st,1,i-1));
) delete(st,1,i);
) until st='';
:
program example1;
var st, st1:string;
i,j,k,n:integer;
flag:boolean;
const
znak=[' ','.',',',':',';','!','?'];
begin
writeln(' ');
readln(st);
repeat
while st[1] in znak do delete(st,1,1);
i:=1;
while (not (st[i] in znak)) and (i<=length(st)) do inc(i);
st1:=copy(st,1,i-1);
flag:= false;
while (pos('',st1)>0) and (not flag) do begin
j:=pos('',st1); n:=j; k:=0;
while st1[n]='' do begin inc(n); inc(k); end;
if k=2 then flag:= true;
delete(st1,j,k)
end;
if flag then writeln(copy(st,1,i-1));
delete(st,1,i);
until st='';
readln;
end.
Книги-online