viết chương trình tính tổng 1,2…120

0 bình luận về “viết chương trình tính tổng 1,2…120”

1. uses crt;

   var i,tong: integer;

   begin

   clrscr;

   write(‘Tong 1 – 120: ‘);

   for i:=1 to 120 do tong:=tong+i;

   write(tong);

   readln;

   end.

   Bình luận

2. program oken;
   uses crt;
   var i,s: qword;
   begin
       clrscr;
       s:=0;
       for i:=1 to 120 do
           s:=s+i;
       writeln(‘Tong cac so tu 1->120: ‘,s);
       readln;
   end.

   Bình luận