Задание:
Даны два предложения разделенные точкой. Вывести первое предложение
Решение:
Держи.vars: string; beginwriteln ('Введите строку: '); readln (s); writeln ('Первое предложение: ',Copy (s,1,pos ('.',s) -1); end.
Знаете другой ответ?
Даны два предложения разделенные точкой. Вывести первое предложение
Держи.vars: string; beginwriteln ('Введите строку: '); readln (s); writeln ('Первое предложение: ',Copy (s,1,pos ('.',s) -1); end.
Знаете другой ответ?