Задать вопрос Регистрация
Помочь другим

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

Ответы 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.

    • Автор:

      charles20
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years