Viết chương trình tính tổng A=20+21+22+23+…+450

0 bình luận về “Viết chương trình tính tổng A=20+21+22+23+…+450”

1. program tinhtong;

   uses crt;

   var A:longint;

         i:integer;

   begin

   clrscr;

   A:=0;

   for i:=20 to 450 do

        A:=A+i;

   write(‘A= ‘,a);

   readln

   end.

   Bình luận

2. program ct;

   uses crt;

   var t:longint;

   n,i:integer;

   begin

   clrscr;

   t:=0;

   for i:=20 to 450 do t:=t+i;

   writeln(‘tong cua tat ca cac so tren la:’,t);

   readln

   end.

   Không biết đúng không nữa vì mình đang phân vân chỗ lệnh for to do :v

   Bình luận