Дистанционная подготовка: Не правильный ответ на 6,7 тесте
Не правильный ответ на 6,7 тесте
от Сакина Ханнанова - Среда 18 Июнь 2014, 00:55
54. Простой стек
  Где не правильно?
var
a:array[0..100] of longint;

siz,k,i,j,m,n :longint ;
s1:string;

procedure push(n:integer);
begin


siz:=siz+1;
a[siz]:=n;
writeln('ok');

end;

procedure pop;
begin
writeln(a[siz]);
if siz 0 then siz:=siz-1 else
siz:=0;
end;

procedure back;
begin
writeln(a[siz]);
end;

procedure size;
begin
writeln(siz);
end;

procedure clear;
begin
siz:=0;
writeln('ok');
end;

procedure ex;
begin
writeln('bye');
s1:='q';
end;

begin
siz:=0;
repeat
readln(s1);
m:=length(s1);
case s1[2] of
'u': begin
n:=0;
for j:=6 to m do
begin
val(s1[j],k,i);
n:=n*10+k;
end;
push(n); end;
'o': pop;
'a': back;
'i': size;
'l': clear;
'x': ex;
end;
until (s1='q');
end.