Подсчитать количество строк, в которых вторым стоит символ «+», а предпоследним «-» - Pascal

Формулировка задачи:

Дан текстовый файл. Подсчитать количество строк, в которых вторым стоит символ «+», а предпоследним «-».

Код к задаче: «Подсчитать количество строк, в которых вторым стоит символ «+», а предпоследним «-» - Pascal»

textual
var
s:string;
i, k: integer;
f:text;
begin
assign(f,'input.txt');reset(f);
k:=0;
while not Eof(f) do
    begin
    readln(f,s);
    if (s[2] = '+') and (s[length(s)-1] = '-')
       then
          inc(k);
    end;
writeln('Количество искомых строк в файле: ',k);
close(f);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

11   голосов, оценка 4.182 из 5


СОХРАНИТЬ ССЫЛКУ