Задание:
Строка S составлена из нескольких предложений, каждоеиз которых заканчивается точкой, восклицательным или вопросительным знаком. Напишите программу, которая выводит на экран количество предложений в данной строке.
Решение:
function max (x,y: longint): longint; begin if x>y then max: =x else max: =y; end; var k: longint; s: string; begin readln (s); while (pos ('.',s) <>0) or (pos ('! ',s) <>0) or (pos ('? ',s) <>0) dobegin k: =k+1; Delete (s,max (max (pos ('.',s) ,pos ('! ',s) ,pos ('? ',s) ,1); end; writeln (k); end.
Знаете другой ответ?