Question

даны два предложения разделённые точкой . вывести первое предложение

Answer 1

Держи.

var
s: string;

begin
writeln('Введите строку: ');
readln(s);
writeln('Первое предложение: ',Copy(s,1,pos('.',s)-1));
end.

Answer 2

Спасибо большое )))0