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.