Viết chương trình tính tổng các số tự nhiên từ 1 đến 5 ( gợi ý: trong vòng lặp vẫn dúng công thức gán tong+ biến đếm cho biến tổng nhưng phải có câu l

0 bình luận về “Viết chương trình tính tổng các số tự nhiên từ 1 đến 5 ( gợi ý: trong vòng lặp vẫn dúng công thức gán tong+ biến đếm cho biến tổng nhưng phải có câu l”

1. Program Hotboy;

   Uses crt;

   Var tong,i : integer;

   Begin

   Clrscr;

   For i:=1 to 5 do 

   Tong:=tong+i;

   Writeln(‘tong cac so tu 1 den 5 la’,tong); 

   Readln

   End.

   Bình luận

2. Cách For do

   Program BTH;
   uses crt;
   var s,i:longint;
   Begin
           clrscr;
           For i:=1 to 5 do s:=s+i;
           writeln(‘Tong cac so tu 1 den 5 la: ‘,s);
           readln;
   end.

   Cách While do

   Program BTH;
   uses crt;
   var s,i:longint;
   Begin
           clrscr;
           While i<>5 do
           Begin
                   i:=i+1;
                   s:=s+i;
           end;
           writeln(‘Tong day so tu 1 den 5 la: ‘,s);
           readln;
   end.

   Đây nha bạn hai cách luôn nha đã test cả rồi ko sai đâu 

   Bình luận