Giúp em với ạ, em cần tính chính xác để em ôn kiểm tra nhé * Đề: Viết chương trình tính tổng các số tự nhiên đầu tiên. Tính cho đến khi S > 40 thì dừn

0 bình luận về “Giúp em với ạ, em cần tính chính xác để em ôn kiểm tra nhé * Đề: Viết chương trình tính tổng các số tự nhiên đầu tiên. Tính cho đến khi S > 40 thì dừn”

1. program tinhtong;

   var i,s : integer;

   Begin clrscr;

   s:=0; i:=1;

   While s <= 40 do

   begin

   s:= s+i;

   i:=i+1;

   end;

   writeln(‘s=’,s);

   readln

   end.

   Bình luận

2. program oken;
   uses crt;
   var s,i:byte;
   begin
           clrscr;
           i:=1; s:=0;
           while s<=40 do
                   begin
                           s:=s+i;
                           i:=i+1;
                   end;
           writeln(‘Tong S: ‘,s);
           readln;
   end.

   Bình luận