в паскале решите задачу :)
1. В строке слова разделены пробелами. Определить на какую букву оканчивается четвертое слово в предложении.
2.Дана последовательность слов. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству: в слове нет повторяющихся букв.
More Questions From This User See All
Answers & Comments
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.
вторая задачи без компа сложная, прости, нужно компилить и проверять