Question

Привет, подскажите код ниже выводит количество букв в первом слове, но если написать не предложение а просто одно слова без пробела то в выводе получается -1. Как исправить? Pascal

var
p:string;
BEGIN
writeln('Введите предложение: ');
readln(p);
writeln('Длина первого слова = ',Length(Copy(p,1,Pos(' ',p) ))-1);
END.

Answer 1

Добавь условие:

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.