Подскажите код ниже выводит количество букв в первом слове, но если написать не предложение а просто одно слова без пробела то в выводе получается -1. как исправить? pascal var p: string; begin writeln('введите предложение: '); readln(p); writeln('длина первого слова = ',length(copy(p,1,pos(' ',p) ); end.
Добавь условие:
var p:string;
BEGIN
write ('Введите предложение: ');
readln(p);
if pos(' ',p) <> 0 then writeln('Длина первого слова = ',Length(Copy(p,1,Pos(' ',p) ))-1)
else writeln ('Длина первого слова = ', Length(p))
END.