Тема: Строки

[Ирина93]

Определить количество слов в тексте (может быть несколько пробелов).
Вывести N последних строчных латинских букв.

[Костя КС]

program ll;
var
s : string;
m : array[1..255] of char;
ch : set of 'a'..'z';
i,k,n2,n : byte;
begin
k := 0; n2 :=0;
ch := ['a'..'z'];

write('text: ');
readln(s);
write('n = ');
readln(n);

for i:=1 to length(s) do
 if (s[i] in ch) then begin n2 := n2+1; m[n2]:=s[i]; end
  else if (s[i]=' ')and(i>1)and(s[i-1]<>' ') then k:=k+1;
if s[length(s)] <> ' ' then k := k + 1;

if n2>n then
 begin
  n2:=n2-n+1;
  n := n2+n;
 end else
 begin
  n := n2;
  n2 := 1;
 end;
 
for i :=n2 to n do write(m[i],' ');
writeln;
writeln('кол-во слов = ',k);
end.