Question

Thực hiện nhập vào các số nguyên và tính tổng của các số nguyên đó, nếu nhập số 0 thì sẽ dừnglại. In ra tổng tính được

Answer 1

var a: array[1..10000] of longint; s: longint;

begin

repeat

readln(a[i]);

s:=s+a[i];

until a[i]=0;

write(s);

readln

end.

Answer 2

uses crt;

var a,s:integer;

begin

clrscr;

s:=0;

repeat

write('Nhap a='); readln(a);

s:=s+a;

until a=0;

writeln(s);

readln;

end.