Viết chương trình tính tổng n số tự nhiên chẵn đầu tiên n được nhập từ bàn phím Gợi ý – biến n nhập từ bàn phím – biến S:=0; For…to…đó…if…the

0 bình luận về “Viết chương trình tính tổng n số tự nhiên chẵn đầu tiên n được nhập từ bàn phím Gợi ý – biến n nhập từ bàn phím – biến S:=0; For…to…đó…if…the”

1. program tong;

   uses crt;

   var n,i,T: integer;

   Begin

            clrscr;

            write(‘Nhap n: ‘); readln(n);

            for i:=1 to n do

            if i mod 2=0 then T:=T+i;

            write(‘Tong cac so chan = ‘,T);

            readln

   End.

   Bình luận

2. var n,i,s : integer;

   begin

   writeln(‘nhap n=’);

   readln(n);

   s:=0

   for i:=1 to n do if (i mod 2 =0) then s:=si;

   writeln(‘tong cua cac so chan tu 2 den n la=’,s);

   readln;

   end.

   Bình luận