Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

В TPascal

Ответ оставил Гость

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.