sử dụng câu lệnh for…do…tổ. Viết chương trình tính tổng của N của số tự nhiên chẵn đầu tiên và in kết quả ra màn hình, với N được nhập từ bàn phím

0 bình luận về “sử dụng câu lệnh for…do…tổ. Viết chương trình tính tổng của N của số tự nhiên chẵn đầu tiên và in kết quả ra màn hình, với N được nhập từ bàn phím”

1. uses crt;

   var i,n,tong:integer;

   begin

   clrscr;

   write(‘N=’);readln(n);

   tong:=0;

   for i:= 1 to n do if i mod 2 = 0 then tong:=tong+i;

   writeln(‘Tong=’,tong);

   readln;

   end.

   Bình luận