Bài tập 2: viết đoạn chương trình tính tổng các số chẵn từ 1 – n(gợi ý: cho vòng lặp for có biến đếm i chạy từ 1-n, kiểm tra biến i là số chẵn khi i c

0 bình luận về “Bài tập 2: viết đoạn chương trình tính tổng các số chẵn từ 1 – n(gợi ý: cho vòng lặp for có biến đếm i chạy từ 1-n, kiểm tra biến i là số chẵn khi i c”

1. program tinhtong;

   uses crt;

   var n,i:integer;

         S:longint;

   begin

        clrscr;

        write(‘Nhap so nguyen N: ‘);     readln(n);

        S:=0;

        for i:=1 to n do

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

        write(‘S= ‘,s);

        readln;

   end.

   Bình luận

2. Program lamginhau;

   uses crt;

   var n,i,t:integer;

   begin

   clrscr;

   write(‘Nhap so tu nhien n=’); readln(n);

   t:=0;

   for i:=1 to n do 

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

   writeln(t);

   readln;

   end.

    

   Bình luận