Question

Viết chương trình in ra màn hình tất cả các ước của n. ( với n nhập từ bàn phím)

Bn nào bik thì chỉ cho mik với nha! mik cảm ơn mý bn nhìu... ( mik cần gấp lắm!)

Answer 1

program Hien_thi;

uses crt;

var n,i:longint;

begin

clrscr;

writeln('nhap so tu nhien n'); readln(n);

for i:=1 to n do

if n mod i=0 then writeln('Uoc cua n la',n/i:0:0);

readln

end.

Answer 2

Program tim_uoc;

Uses crt;

Vả i,N:integer;

Begin

Clrscr;

Writeln('Nhap gia tri N:');Readln(N);

For i:=1 to N do

If N mod i =0 then writeln(i,'la uoc cua N);

Readln

End.

Answer 3

program Hien_thi;

uses crt;

var n,i:longint;

begin

clrscr

for i:=1 to n do

if n mod i=0 then writeln('Uoc cua n la',n/i:0:0);

readln

end.