viết chương trình tính số chẵn và số lẻ từ 1 đến n ( mn giúp mh với ???? )

0 bình luận về “viết chương trình tính số chẵn và số lẻ từ 1 đến n ( mn giúp mh với ???? )”

1. program phuongt;

   uses crt;

     var n, s, d, i: integer;

   begin

              clrscr;

              write(‘Nhap n = ‘); readln(n);

              s:=0; d:=0;

              for i:=1 to n do if i mod 2 = 0 then s:=s+1 else d:=d+1;

              writeln(‘So chan = ‘, s);

              write(‘So le = ‘, d);

              readln

   end.

   Bình luận

2. program demchanle;

   uses crt;

   var d,n:integer;

   begin

   clrscr;

   write(‘Nhap n: ‘);   readln(n);

   d:=0;

   for i:=1 to n do

    if i mod 2=0 then d:=d+1;

   writeln(‘Tu 1->’,n,’ co ‘,d,’ so chan’);

   writeln(‘Tu 1->’,n,’ co ‘,n-d,’ so le’);

   readln

   end.

   Bình luận