01.04.2010, 17:13
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
С нами:
8542140
Репутация:
47
|
|
LASS0..держи, слова разделяются пробелами
PHP код:
var
s, a: string;
i, rez: integer;
ok: boolean;
begin
readln(s);
ok:=false;
rez:=0; s:=s+' ';
a:='';
for i:=1 to length(s) do
begin
if s[i]<>' ' then
begin
a:=a + s[i];
if s[i] = 'k' then ok:=true;
end
else
begin
if ok then
begin
writeln(a);
ok:=false;
end;
a:='';
end;
end;
readln;
end.
|
|
|