Посчитать количество предложений в файле(тема:строковый тип данных).т.е написать программу
Answers & Comments
Segrif
Не работает с многоточием, если что. 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) end.
Answers & Comments
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)
end.