Даны натуральное число n, символы s1,...sn. , группы символов, разделённые пробелами...

Question

Даны натуральное число n, символы s1,...sn. , группы символов, разделённые пробелами (одним или несколькими) и не содержащие пробелов внутри себя , будем называть словами. подсчитать количество букв a в последнем слове данной последовательности

В TPascal

Answer 1

var
s:string;
i,count,count1,numI:integer;
begin
count:=0;
count1:=0;
readln (s);
for i:=1 to length(s) do
if (s[i]=' ') then
begin
count:=count+1;
numI:=i;
end;
for i:=numI+1 to length(s) do count1:=count1+1;
writeln ('Число букв в последнем слове:',count1);

 

end.