Sử dụng cấu trúc lặp để viết chương trình tính tổng của 1 dãy số thực nhập từ bàn phím. Điều kiện kết thúc là khi nhập vào số 0
1 câu trả lời
uses crt;
var s,n:real;
begin
s:=0;
repeat
begin
clrscr;
write('nhap so: ');readln(n);
s:=s+n;
writeln('tong la: ',s:1:2);
readln;
end;
until n=0;
readln;
end.
