viết chương trình tính tổng sau: 1+2+3+…+100 nhanh tay lên nào

0 bình luận về “viết chương trình tính tổng sau: 1+2+3+…+100 nhanh tay lên nào”

1. Uses crt;

   Var s, i: integer;

   Begin

        Clrscr;

        s:=0;

        For i:=1 to 100 do s:=s+i;

        Writeln(‘Tong la: ‘,s:5:2);

   Readln

   End.

   Bình luận

2. uses crt;

   var i,s: integer;

   begin

   clrscr;

   for  i:=1 to 100 do

   s:=s+i;

   writeln (‘tong la: ‘,s);

   readln;

   end.

   chúc bạn học dốt nhé !!!!

   Bình luận