Nhập vào số nguyên dương ????. Xuất ra màn hình số lượng số lẻ và số lượng số chẵn trong các số {1,2, … , ????}, mỗi kết quả nằm trên một dòng. pascal.

0 bình luận về “Nhập vào số nguyên dương ????. Xuất ra màn hình số lượng số lẻ và số lượng số chẵn trong các số {1,2, … , ????}, mỗi kết quả nằm trên một dòng. pascal.”

1. uses crt;
   var n,i,d,d1:longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n do if i mod 2=0 then inc(d) else inc(d1);
      writeln(d1);
      writeln(d);
   readln
   end.

   Bình luận

2. program soluongchanle;

   uses crt;

   var n,i,d:integer;

   begin

   clrscr;

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

   d:=0;

   for i:=1 to n do

    if i mod 2=1 then inc(d);

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

   writeln(‘So luong so chan la: ‘,n-d);

   {vi so luong so chan=so luong-so luong so le}

   readln

   end.

    

   Bình luận