Question

Hãy viết chương trình nhập các số khác 0 rồi tính tổng của các số đó. Chương trình kết thúc khi số được nhập đầu tiên là 0

Answer 1

uses crt;

var x,t,i:integer;

begin

clrscr;

t:=0;

repeat

readln(x);

t:=t+x;

until x=0;

write(t);

readln;

end.