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.
Количество этажей в доме 5. Начал караться с 4 этажа. Закончил кататься на 2 этаже.
Между интернет-страницами, которые могут располагаться на различных серверах или гиперссылки позволяют ссылаться на какой-либо ресурс (документы, рисунки и другие)
Решение показано во вложениях. В первом - результат, во втором - формула.
Ответ: <u>2594.4 </u>