Паскаль!!!Дано предложение,определить длину последнего слова.
Паскаль!!!
Дано предложение,определить длину последнего слова.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы