I. Tự luận : Bài 1: Viết chương trình in ra tất cả các ước của một số n (Với n được nhập từ bàn phím) ……………………………………………………………………………………………… ……………………………

0 bình luận về “I. Tự luận : Bài 1: Viết chương trình in ra tất cả các ước của một số n (Với n được nhập từ bàn phím) ……………………………………………………………………………………………… ……………………………”

1. Program BTH;
   uses crt;
   var n,i:longint;
   Begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           writeln(‘U cua ‘,n,’ la: ‘);
           for i:=1 to n do
           If n mod i=0 then write(i,’ ‘);
   readln;
   end.

   Bình luận

2. 1.

   uses crt;

   var n,i:integer;

   beign

   clrscr;

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

   for i:=1 to n do if n mod i=0 then writeln(‘uoc cua ‘,n,’ la: ‘,i);

   readln

   end.

   Bình luận