в паскале решите задачу :)

 

 

 

1. В строке слова разделены пробелами. Определить на какую букву оканчивается четвертое слово в предложении.

 

2.Дана последовательность слов. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству: в слове нет повторяющихся букв. 

1) Pascal ABC.NET

var s:string; p:boolean; i,k:integer;

begin

p:false;

k:=0;

read(s);

for i:=1 to lenth(s) do

begin

if s[i]=' ' then inc(k); 

if k=5 then p:=true else p:=false;

if p then writeln(s[i-1]);

end;

end.

вторая задачи без компа сложная, прости, нужно компилить и проверять