Информатика, опубликовано 2018-08-22 22:55:15 by Гость
Паскаль!!!Дано предложение,определить длину последнего слова.
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.