1/ viết chương trình nhập n đếm xem từ 1->n có bao nhiêu số lẻ 2/ viết chương trình nhập n, in các ước số của n 3/ viết chương trình nhập n, kiểm tra

0 bình luận về “1/ viết chương trình nhập n đếm xem từ 1->n có bao nhiêu số lẻ 2/ viết chương trình nhập n, in các ước số của n 3/ viết chương trình nhập n, kiểm tra”

1. 1/ viết chương trình nhập n đếm xem từ 1->n có bao nhiêu số lẻ

   Program tim_so_le;

   Uses crt;

   Var i,n,S:Integer;

   Begin

     Clrscr;

     Write(‘Nhap n=’);

     Readln(n);

     S:=0;

     For i:=1 To n Do If i mod 2 <>0 then S:=S+1;

     Writeln(S);

     Readln;

   End.

   2/ viết chương trình nhập n, in các ước số của n

   Program tim_uoc;

   Uses crt;

   Var i,n:Integer;

   Begin

     Clrscr;

     Write(‘Nhap n=’);

     Readln(n);

     For i:=1 To n Do If n mod i=0 Then Write(i,’,’);

     Readln;

   End.

   3/ viết chương trình nhập n, kiểm tra xem n có bao nhiêu ước số

   Program tim_uoc;

   Uses crt;

   Var i,n,S:Integer;

   Begin

     Clrscr;

     Write(‘Nhap n=’);

     Readln(n);

     S:=0;

     For i:=1 To n Do If n mod i=0 Then S:=S+1;

     Writeln(S);

     Readln;

   End.

   Hơi ít điểm đó bạn!!:3

   Bình luận