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) ……………………………………………………………………………………………… ……………………………………………………………………………………………… ……………………………………………..

2 câu trả lời

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.

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.