pascal仿真超市取款机问题
发布网友
发布时间：2022-04-22 22:00
共1个回答
热心网友
时间：2023-06-26 17:36
program cashregister;
var
i,s:integer;
begin
s:=0;
read(i);
while i<>0 do
begin
s:=s+i;
read(i);
end;
writeln('price=',s);
end.
