Цитата:
Сообщение от An4ik7689
Дана строка из латинских слов, между словами пробелы. Вывести все слова, отличные от последнего.
Помогите пожалуйста.
|
Да пожалуйста:
Код:
var
a:array[1..200] of string;
i,j,N:integer;
S:string;
begin
for i:=1 to 200 do a[i]:='';
writeln('Enter the string:');
readln(S);
i:=1;
j:=0;
Repeat
inc(j);
if S[j]=' ' then
inc(i)
else
a[i]:=a[i]+S[j];
Until j=Length(S);
N:=i;
writeln('Words not coinciding with the last one:');
for i:=1 to N-1 do
if a[i]<>a[N] then write(a[i]+' ');
readln
end.