profile
Опубликовано 5 лет назад по предмету Информатика от Elmira123456

Посчитать количество предложений в файле(тема:строковый тип данных).т.е написать программу

  1. Ответ
    Ответ дан 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.