Viết chương trình tính tổng các số chẵn từ 1 đến n

0 bình luận về “Viết chương trình tính tổng các số chẵn từ 1 đến 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 la’,S);

   Readln

   End.

   Bình luận

2. program ct;

   uses crt;

   var i,n:integer;

         S:longint;

   begin clrscr;

      writeln(‘Nhap so 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.

   Học tốt!

   Bình luận