Viết chương trình cho phép tính tổng của nhiều số (Chưa biết bao nhiêu số). Nhập
số 0 để kết thúc quá trình nhập.
Viết chương trình cho phép tính tổng của nhiều số (Chưa biết bao nhiêu số). Nhập số 0 để kết thúc quá trình nhập.
By Hailey
By Hailey
Viết chương trình cho phép tính tổng của nhiều số (Chưa biết bao nhiêu số). Nhập
số 0 để kết thúc quá trình nhập.
Program Tong_Repeat;
uses crt;
var i: byte;
so, tong: real;
begin
write(‘NHAP CAC SO – NHAP 0 DE NGUNG ‘);
readln;
repeat
clrscr;
write(‘Nhap so thu ‘,i,’: ‘);
readln(so); tong:=tong+so; i:=i+1;
until so=0;
write(‘Tong la: ‘,tong:6:1);
readln
end.
CHÚC BN HC TỐT # NGUYỄN THANH BẢO KHA @ I LOVE YOU
program tong_so;
uses crt;
var n,t:integer;
begin
clrscr;
repeat
write(‘Nhap so: ‘); readln(n);
t:=t+n;
until n=0;
write(‘Tong cac so vua nhap la: ‘,t);
readln;
end.