Question

Viết chương trình tính tổng các số nguyên được nhập từ bàn phím cho đến khi nhập số 0 thì dừng.

Input:

Nhập các số nguyên.

Output:

Tổng các số vừa nhập

Ví dụ

Input

7 3 2 4 0

Output

16

Answer 1

Program HOC24;

var i,n: integer;

t: longint;

begin

read(n);

t:=n;

if n<>0 then

begin

while n<>0 do

begin

read(n);

t:=t+n;

end;

end;

readln;

readln

end.

Answer 2

Cách khác:

uses crt;

var n,t:integer;

begin

clrscr;

t:=0;

repeat

write('n='); readln(n);

t:=t+n;

until n=0;

writeln(t);

readln;

end.