viết chương trình in ra tất cả các ước của 1 số n với n được nhập từ bàn phím

0 bình luận về “viết chương trình in ra tất cả các ước của 1 số n với n được nhập từ bàn phím”

1. Program Tim_uoc;

    

   uses crt;

   Var n, i: integer;

   Begin

   clrscr;

   Write(‘Nhap so n =’); readln(n);

   For i:=1 to n do if n mod i = 0 then write(i:3,’,’);

   readln

   end.

   #HỌC TỐT

   #Đáng giá 5 sao và ctlhn

   Bình luận

2. program Hien_thi;

   uses crt;

   var n,i:longint;

   begin

   clrscr;

   writeln(‘nhap so tu nhien n’); readln(n);

   for i:=1 to n do

   if n mod i=0 then writeln(‘Uoc cua n la’,n/i:0:0);

   readln

   end.

   Bình luận