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