0 интересует 0 не интересует
96 просмотров
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.

вопрос по Информатика от

Ваш ответ

Отображаемое имя (по желанию):
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.
Анти-спам проверка:
Чтобы избежать проверки в будущем, пожалуйста войдите или зарегистрируйтесь.
...