VCT nhập từ bàn phím 1 số nguyên dương n in ra màn hình: Dòng 1: Tổng các số chẵn từ 1 đến n Dòng 2:Tổng các số lẻ từ 1 đến n

0 bình luận về “VCT nhập từ bàn phím 1 số nguyên dương n in ra màn hình: Dòng 1: Tổng các số chẵn từ 1 đến n Dòng 2:Tổng các số lẻ từ 1 đến n”

1. Program NhatNgu;
   Uses crt;
   Var n,dc,dl,i: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           dc:=0; dl:=0;
           For i:=1 to n do
                   If i mod 2 = 0 then inc(dc)
                   else inc(dl);
           Writeln(‘Co ‘,dc,’ so chan’);
           Write(‘Co ‘,dl,’ so le’);
           Readln
   End.

   Bình luận

2. program qtruong;

   uses crt;

   var n, i, S, T: integer;

   begin

   clrscr;

   write(‘Nhap so nguyen duong n = ‘); readln(n);

   s:=0; t:=0;

   For i:=1 to n do if i mod 2 = 0 then s:=s+i;

   For i:=1 to n do if i mod 2 = 1 then t:=t+i;

   writeln(‘Tong cac so chan la: ‘,s);

   writeln(‘Tong cac so le la: ‘,t);

   readln

   end.

   Bình luận