Дан текстовый файл. Подсчитать количество строк, в которых вторым стоит символ «+», а предпоследним «-».
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
