Определите количество предложений в заданном тексте (предложение заканчивается либо точкой, либо вопросительным или восклицательным знаком) — Pascal(Паскаль)

program s1;
var 
s:string;
i,k:integer;
begin
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i] in ['.','?','!'] then k:=k+1;
writeln(k);
end.

Похожие записи/страницы:

Leave a Comment

4 + 3 =