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

Phong

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

Phía sau một cô gái
23 tháng 3 2023 lúc 19:38

program Tim_Uoc;

uses crt;

var

     n, i: integer;

begin

     clrscr;

     write('Nhap vao mot so nguyen duong n: ');

     readln(n);

     writeln('Cac uoc cua so ', n, ' la: ');

     for i:=1 to n do

     begin

          if n mod i = 0 then

               writeln(i);

     end;

     readln;

end.

Bình luận (2)

Các câu hỏi tương tự
Lâm Khả Doanh
Xem chi tiết
hoangvinh
Xem chi tiết
Nguyenthanh
Xem chi tiết
Lan Phương
Xem chi tiết
Duy Anh Nguyễn
Xem chi tiết
Thúy Anh
Xem chi tiết
Bảo Trâm
Xem chi tiết
Bảo Trâm
Xem chi tiết
Hoà Trần
Xem chi tiết