Question

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

Answer 1

var

  str : string;

  a, b : char;

  count : integer;

begin

assign (input, 'file.txt'); reset (input);

while not eof do

begin

  readln (str);

  if length (str) > 1 then a := str[2]

  else a := '1';

  if length (str) > 1 then b := str[2]

  else b := '1'; //Заведомо неверные данные

  if (a ='+') and (b = '-') then inc (count);

end;

writeln (count);

end.