Регистрация
Войти
Стать экспертом Правила
Информатика

Работа по паскалю 2. Практическая часть по программированию:"Практическая часть по программированию предполагает решение 2 задач:на тип INTEGER и на тип CHAR (другие типы использовать нельзя!!!)."Вводится текст. Конец ввода точка. Найти количество предложений, предложения разделяются "!".

ОТВЕТЫ



begin
  var s:=ReadlnString('Введите текст, завершив его точкой:');
  var p:=Pos('.',s);
  if (p>0) and (p<s.Length) then s:=s[:p+1];
  Writeln('Количество предложений равно ',s.ToWords('!').Count)
end.


Введите текст, завершив его точкой: Тест 1!тестовое №2!Тест3.Тест4!
Количество предложений равно 3



begin
  Writeln('Количество предложений равно ',
    ReadlnString('Введите текст, завершив его точкой:').ToWords('!').Count)
end.

255
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам