热心网友
簆program Count;簐var Total,Temp,i:Integer;篵begin for i:=1 to 50 do begin write('Please Input No. ',i,' Sc'); readln(Temp); Total:=total+Temp; end; writeln('Total is ',Total); readln;end.borland pascal 7编译通过
簆program Count;簐var Total,Temp,i:Integer;篵begin for i:=1 to 50 do begin write('Please Input No. ',i,' Sc'); readln(Temp); Total:=total+Temp; end; writeln('Total is ',Total); readln;end.borland pascal 7编译通过