Viết chương trình tính tổng các số chẵn của N số tự nhiên đầu tiên

0 bình luận về “Viết chương trình tính tổng các số chẵn của N số tự nhiên đầu tiên”

1. Program Hotboy;

   Uses crt;

   Var S,i,n: integer;

   Begin

   Clrscr;

   S:=0;

   Write(‘nhap n’);

   Readln(n);

   For i:=1 to n do

   If (i mod 2=0) then 

   S:=S+i;

   Write(‘tong chan ‘,n,’so tu nhien dau tien  la’,S);

   Readln

   End.

   Bình luận

2. Program tong;

   Uses crt;

   Var n,i,s: integer;

   Begin

   Write(‘nhap n:’);readln(n);

   S:=0;

   For i:=1 to n do

   If i mod 2=0 then s:=s+i;

   Write(‘tong la:’,s);

   Readln;

   End.

   Bình luận