Дано предложение,определить длину последнего слова.

Nasva Nasva    3   02.06.2019 03:30    0

Ответы
КэтЗед КэтЗед  02.07.2020 23:52
Var
 str:string;
 k,i:integer;
begin
 k:=1;
 readln(str);
 for i:=1 to Length(str) do
begin
 if str[i]=' ' then
  k:=i;
end;
 writeln(Length(str)-k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика