Viết chương trình nhập và tính tổng các số nguyên Khi nào nhập số 0 thì dừng lại và thông báo tổng các số đã nhập

Question

cobexinhdep · Answer

program tong;

uses crt;

var n,T: longint;

Begin

clrscr;

n:=1;

while n<>0 do

begin

write(‘Nhap so: ‘); readln(n);

T:=T+n;

end;

write(‘Tong cac so da nhap = ‘,T);

readln

End.

cattien · Answer

program tong_khac_0;

uses crt;

var n,t:integer;

begin

clrscr;

repeat

write(‘Nhap so: ‘); readln(n);

t:=t+n;

until n=0;

write(‘Tong cac so da nhap la: ‘,t);

realdn;

end.