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