Цитата:
Сообщение от Darik102rus
pascal abc
|
Понятно. То есть желания чему-то учиться нет и в помине. Несмотря на то, что недавно Вам было выложено решение
аналогичной задачи, Вы даже не пытаетесь на базе той программы сделать самостоятельно решение этой - более простой, кстати. Мол, пусть дурачки с форумов работают, а я - умный. Так? Ну что же, ладно. Только вот помяните моё слово - скоро такая позиция Вас так шарахнет, что мало не покажется. Получить образование, шарясь по форумам - не выйдет, уж поверьте.
Вот Ваша программа:
Код:
var
S:string;
i,j,N: integer;
W:Array[1..255] of String;
Function Times(St:String):Boolean;
var
b:boolean;
k,p:integer;
begin
b:=true;
for k:=1 to Length(St)-1 do
for p:=k+1 to Length(St) do
if St[k]=St[p] then b:=false;
Times:=b;
end;
begin
writeln('Enter the string: ');
readln(S);
N:=1;
i:=1;
Repeat
While (S[i]=' ') and (i<Length(S)) do Inc(i);
W[N]:='';
While (S[i]<>' ') and (i<=Length(S)) do
begin
W[N]:=W[N]+S[i];
Inc(i);
end;
If i<Length(S) then Inc(N);
Until i>=Length(S);
For i:=1 to N do
If Times(W[i]) then Write(W[i]+' ');
Readln
End.