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

0 bình luận về “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”

1. 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

   Bình luận

2. 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.

   Bình luận