Viết chương tính tổng S= 1+2+3+…+10. áp dụng cấu trúc for

0 bình luận về “Viết chương tính tổng S= 1+2+3+…+10. áp dụng cấu trúc for”

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

   Bình luận

2. uses crt;

   var i, T: integer;

   Begin

        clrscr;

        T:=0;

        for i:=1 to 10 do T:=T+i;

        writeln(‘Tong cac so tu 1 den 10 la: ‘, T:2);

        readln;

   End.

   Bình luận