Lập trình đơn giản

nguyễn khánh

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 !!!!!!!!!!

Tú Nguyễn
7 tháng 1 2019 lúc 22:24

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.

Bình luận (2)
Đoàn Gia Khánh
7 tháng 1 2019 lúc 17:54

...........

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.

Bình luận (0)
Luân Đào
7 tháng 1 2019 lúc 17:57

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.

Bình luận (1)
nguyễn khánh
8 tháng 1 2019 lúc 11:08

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

Bình luận (0)
Nguyễn Lê Phước Thịnh
12 tháng 1 2019 lúc 10:17

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.

Bình luận (0)
Nguyễn Minh Quang
23 tháng 10 2022 lúc 12:43

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.

Bình luận (0)

Các câu hỏi tương tự
haizzz!!
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Nguyễn Trần Thiên Bảo
Xem chi tiết
Nguyễn Trần Thiên Bảo
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Bbi thành real
Xem chi tiết
Nguyễn Thị Thái
Xem chi tiết
Trần Việt Long
Xem chi tiết
Nhân lê
Xem chi tiết