Tin học Lập trình tìm tất cả các ước của một số nguyên cho trước 24/07/2021 By Katherine Lập trình tìm tất cả các ước của một số nguyên cho trước
uses crt; var n,i:integer; BEGIN clrscr; write(‘Nhap n:’); readln(n); write(‘Cac uoc cua so ‘,n,’ la:’); for i:=1 to n do if n mod i =0 then write(i,’ ‘); readln END. Chúc bạn học tốt! Trả lời
Dài nhưng chương trình chạy nhanh nha, nó sẽ lợi ích hơn. program uocso; uses crt; var n,i:integer; begin clrscr; write(‘Nhap so: ‘); readln(n); write(‘Cac uoc cua ‘,n,’ la: ‘); for i:=1 to n div 2 do if n mod i=0 then write(i,’ ‘); {chỉ chạy tới n div 2 thôi cho nhanh vì sau n div 2 không còn số nào để n chia hết nữa trừ n} write(n); {Vì n cung la uoc cua n} readln end. Nếu thấy hay thì cho mình ctlhn nha. Trả lời