Ответы
Ответ дал:
0
1. измерить длину всего предложения
2. вырезать из предложения 2 кусочка текста: до 1 пробела и до 2 пробела
3. измерить длину обоих кусочков
4. длина кусочка 2- длина кусочка 1 - 1 символ (пробел между кусочками)= искомая длина
2. вырезать из предложения 2 кусочка текста: до 1 пробела и до 2 пробела
3. измерить длину обоих кусочков
4. длина кусочка 2- длина кусочка 1 - 1 символ (пробел между кусочками)= искомая длина
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад