0 голосов
104 просмотров
назад от в категории Информатика
var st: string;

n, k: integer;

begin

writeln('Введите предложение из 2 слов ');

readln(st);

n := length(st);

k:=k-1;

for var i := 1 to n do

begin

if (st[i] = '.') or (st[i] = '?') or (st[i] = '!') then

k := k + 1;

end;

writeln(k);

end.
...