Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Huỳnh Thị

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

Nguyễn Tấn Tài
14 tháng 2 2017 lúc 18:35

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.

Hàn Tuyết Nhi
16 tháng 3 2017 lúc 13:47

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.

Nguyễn Tấn Tài
14 tháng 2 2017 lúc 18:33

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.


Các câu hỏi tương tự
Maiiii
Xem chi tiết
Nguyễn Gia Huy
Xem chi tiết
Phong
Xem chi tiết
Kim Chi
Xem chi tiết
hoangvinh
Xem chi tiết
DinoDrang
Xem chi tiết
Lan Phương
Xem chi tiết
thanh mai
Xem chi tiết
nguyễn bảo nga
Xem chi tiết