Viết chương trình hộ mk với đề bài sau : Nhập vào 1 số a , nhập đến khi a=0 thì dừng lại . Tính tổng các số vừa nhập .
2 câu trả lời
Uses crt;
Var a,s: longint;
Begin
Clrscr;
Write('Nhap a: '); Readln(a);
s:=0;
While a <> 0 do
Begin
s:=s+a;
Write('a > 0, tiep tuc nhap: '); Readln(a);
End;
Write('Tong cac so vua nhap la: ',s);
Readln
End.
program oken;
uses crt;
var a,i,tong:longint;
begin
clrscr;
i:=1; tong:=0;
write('a(',i,'): '); readln(a);
while a>0 do
begin
tong:=tong+a;
inc(i);
write('a(',i,'): '); readln(a);
end;
writeln('tong=',tong);
readln;
end.
