Привет, подскажите код ниже выводит количество букв в первом слове, но если написать не...

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.

Comments

Спасибо большое!

---

почему бы просто не добавить пробел в конце?

---

программно, если там будет два пробела то это ж не страшно