|
Лифт
(10 Баллов)
(Примечание: данные вводятся в виде строки)
Решение данной задачи представлено для ввода чисел с файла "INPUT.TXТ"
и вывода в "OUTPUT.TXT".
var f,f1:text;
n,k,d:longint;c:char;
begin
reset(f,'input.txt'); n:=150;k:=n;d:=n;
rewrite(f1,'output.txt');
while not eof(f) do
begin
read(f,c);
if c='1' then
begin
n:=n+1;
if n>k then k:=n;
end
else
begin
n:=n-1;
if n<d then d:=n;
end;
end;
writeln(f1,k-d+1);
close(f);close(f1);
end. |