Поделитесь своими знаниями, ответьте на вопрос:
Впаскале решите : ) 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.
вторая без компа сложная, прости, нужно компилить и проверять