ПОМОГИТЕ ПЛИЗ!!!! 1)Составить программу, определяющую ** какую букву заканчивается...

Question

ПОМОГИТЕ ПЛИЗ!!!!
1)Составить программу, определяющую на какую букву заканчивается предложение.
2) Определить длину 2 слова в предложении

Answer 1

Var s: string;
    k: integer;
begin
  write('строка: ');  readln(s);
  writeln('строка заканчивается на букву ','"',s[length(s)],'"');
  k:=pos(' ',s);
  if k=0 then 
  begin
    writeln('в строке одно слово');
    exit;
  end;
  delete(s,1,k);
  k:=pos(' ',s);
  write('длина второго слова: ');
  if k=0 then writeln(length(s))
  else writeln(k-1);
end.

строка: это строка для проверки
строка заканчивается на букву "и"
длина второго слова: 6