Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  gap
Language: PASCAL
Code:
var i,j,k,m,s :integer;
label CASEPOINT;
begin
k:=4
m:=k div 2;
CASEPOINT: case m of
1, 5 :begin m:m+1; S:=0; goto CASEPOINT end;
22, 12:begin m:=m+15; S:=-700;end;
end;
writeln('m',m 'S',S);
i:=3; S:=100;
for j:=1 to 10 do
begin
if i<4 then i:=i+2 else i:=i+1;
for k:=1 to 2 do
begin
i:=i+1;
S:=S+1;
end;
end;
writeln('i',i 'S',S);
end.
Comments: