Giúp tớ vs :< Viết chương trình tính tổng 3 số tự nhiên đầu tiên (1,2,3) bằng vòng lặp while ...do
2 câu trả lời
program BTH;
uses crt;
var i,tong:byte;
begin
clrscr;
i:=0;
while i<3 do
begin
i:=i+1;
tong:=tong+i;
end;
writeln('Tong 3 so tu nhien dau tien la: ',tong);
readln;
end.
program oken;
uses crt;
var i,tong:byte;
begin
clrscr;
i:=0;
while i<4 do
begin
i:=i+1;
tong:=tong+i;
end;
writeln('tong 3 so tu nhien dau tien: ',tong);
readln;
end.
Cho mình câu trả lời hay nhất nha