Помогите, пожалуйста! Определить длину 2го слова в предложении. Turbo pascal
Answers & Comments
darknicki
1. измерить длину всего предложения 2. вырезать из предложения 2 кусочка текста: до 1 пробела и до 2 пробела 3. измерить длину обоих кусочков 4. длина кусочка 2- длина кусочка 1 - 1 символ (пробел между кусочками)= искомая длина
0 votes Thanks 0
Yegor55
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.
Answers & Comments
2. вырезать из предложения 2 кусочка текста: до 1 пробела и до 2 пробела
3. измерить длину обоих кусочков
4. длина кусочка 2- длина кусочка 1 - 1 символ (пробел между кусочками)= искомая длина
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.