Помогите, пожалуйста! Определить длину 2го слова в предложении. Turbo pascal
Помогите, пожалуйста! Определить длину 2го слова в предложении. Turbo pascal
Гость
Ответ(ы) на вопрос:
Гость1. измерить длину всего предложения
2. вырезать из предложения 2 кусочка текста: до 1 пробела и до 2 пробела
3. измерить длину обоих кусочков
4. длина кусочка 2- длина кусочка 1 - 1 символ (пробел между кусочками)= искомая длина
Гостьvar
s : String;
begin
Writeln('Vvedite predlojenie:');
Readln(s);
s := Copy(s, pos(' ', s) + 1, Length(s));
s := Copy(s, 1, pos(' ', s) - 1);
Writeln('Dlina 2 slova = ', length(s));
Readln;
end.
Не нашли ответ?
Похожие вопросы