Question

Viết chương trình tìm ước của số nguyên n ( n được nhập từ bàn phím).

giúp em vs, em cần gấp !!!!!!!!!!

Answer 1

var i,n:integer;

begin

write('n=');readln(n);

for i:=1 to n do

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

readln;

end.

Answer 2

...........

program fgdfg;

uses crt;

var i,n:integer;

begin

clrscr;

write('n=');

readln(n);

for i:=1 to n do if (n mod i)=0 then write(i);

readln;

end.

Answer 3

program uocso;

uses crt;

var n: real;

i: integer;

begin

clrscr;

write('Nhap n vao day '); readln(n);

For i:= 1 to (n-1) do

if n mod i = 0 then write('so nay la uoc cua ',n);

readln

end.

Answer 4

mơn mấy bạn nhiều

Answer 5

program thinh;
uses crt;
var a,i:integer;
begin
clrscr;
write('nhap a:'); readln(a);
writeln('cac uoc cua ',a,' la: ');
for i:=1 to a do
if a mod i=0 then write(i:4);

readln;

end.

Answer 6

program thinh;
uses crt;
var a,i:integer;
begin
clrscr;
write('nhap a:'); readln(a);
writeln('cac uoc cua ',a,' la: ');
for i:=1 to a do
if a mod i=0 then write(i:4);

readln;

end.