viết chương trình tìm tất cả các ước ko âm của n , với n nhập từ bàn phím
2 câu trả lời
program hotboy;
uses crt;
var n,i:integer;
begin
clrscr;
write('nhao so n tu ban phim ');
readln(n);
for i:=1 to n do
if n mod i=0 then write(i,'la uoc cua ',n);
readln
end.
Uses Crt;
Var N,i : Integer;
Begin
Clrscr;
Write('Nhap so nguyen N= ');
Readln(N); For i:=1 To N Do
If N MOD i=0 Then Write(i:5);
Readln;
End.
Câu hỏi trong lớp
Xem thêm