Lập trình nhập số nguyên N với N>10. đếm và đưa ra màn hình trong phạm vi từ 1 đến N. Có bao nhiêu số chẵn và tính tổng các số lẻ

0 bình luận về “Lập trình nhập số nguyên N với N>10. đếm và đưa ra màn hình trong phạm vi từ 1 đến N. Có bao nhiêu số chẵn và tính tổng các số lẻ”

1. Program BTT;
   Uses crt;
   Var n,i,d,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0; d:=0;
           For i:=1 to n do
           Begin
                   If i mod 2 = 0 then inc(d);
                   If i mod 2 = 1 then s:=s+i;
           End;

           Writeln(‘Co ‘,d,’ so chan’);
           Write(‘Tong cac so le: ‘,s);
           Readln
   End.

   Bình luận