Viết ct nhập vào n số nguyên dương từ bp, thực hiện công việc sau: Đếm số lượng số chẵn và số lẻ trong phạm vi từ 1 đến n

0 bình luận về “Viết ct nhập vào n số nguyên dương từ bp, thực hiện công việc sau: Đếm số lượng số chẵn và số lẻ trong phạm vi từ 1 đến n”

1. uses crt;
   var i,n:integer;
       a:array[0..100] of integer;
       chan,le:byte;
   BEGIN
           clrscr;
           write(‘Nhap N:’); readln(n);
           for i:=1 to n do
           begin
                   write(‘Nhap a[‘,i,’]’);
                   readln(a[i]);
           end;
           chan:=0;  le:=0;
           for i:=1 to n do
                   if a[i] mod 2=0 then inc(chan)
                   else inc(le);
           write(‘Co ‘,chan,’ so chan va ‘,le,’ so le trong pham vi tu 1 den n.’);
           readln
   END.

   Trả lời

2. program sochanle;

   uses crt;

   var n,i,dc,dl:integer;

   begin

   clrscr;

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

   dc:=0;  dl:=0;

   for i:=1 to n do

    if (i mod 2=1) then dl:=dl+1 else dc:=dc+1;

   writeln(‘So luong so chan la: ‘,dc);

   writeln(‘So luong so le la: ‘,dl);

   readln

   end.

   Trả lời