Не работает с многоточием, если что. var f:text; c:char; k:integer; begin k:=0; assign(f,'input'); reset(f); while eof(f)=false do if eoln(f) then readln(f) else begin read(f,c); if (c='.') or (c='!') or (c='?') then k:=k+1; end; if not((c='.') or (c='!') or (c='?')) then k:=k+1; close(f); write(k) <span>end.</span>
{<span>Отряд — </span>формирование<span>, состоящее из нескольких человек, достаточно большой численности</span><span><span>, сформированное с той или иной целью</span>} </span>//Но будь по Вашему, мне не сложно //Dev-C++ 4.9.9.2
#include <iostream> #include <string> using namespace std;