Question

Pascal ABC - язык. Помогите пожалуйста.

Дана строка символов. Группы символов, разделенные пробелами(одним или несколькими) и не содержащие пробелов внутри себя, будем называть словом
а)подсчитать количество слов, которые заканчиваются на букву "а"
б) переставить местами первое и последнее слова

Answer 1

а) var k: String;
sum,i: Integer;
begin
writeln('Введите текст');
readln(k);
for i:=1 to length(k) do
if k[i]='а' then Inc(sum);
writeln('Кол-во: ',sum);
end.

б) Var l,gg,kk:string;
i:byte;
Begin
writeln('Введите текст');
readln(l);
gg:=Copy(l,1,Pos(' ',l)-1);
Delete(l,1,Pos(' ',l));
kk:='';
For i:=Length(l) downto 1 do
if l[i]<>' ' then kk:=l[i]+kk else break;
Delete(l,i,Length(kk));
l:=kk+' '+l+' '+gg;
writeln(l);
End.