Viết chương trình nhập vào từ bàn phím 3 số nguyên dương M , N , K ( M,N,K <10000 ) thực hiện các công việc sau: a) Nếu M >N thì hoán đổi chúng cho nhau b) Đưa ra màn hình số lượng các số chia hết cho K từ M đến N c) Cho biết K có phải số hoàn hảo hay không ,biết số hoàn hảo là số có tổng các ước ( ngoại trừ nó) bằng chính nó . Ví dụ: số 6 có các ước là 1 , 2 ,3
program Min;
uses crt;
var M,N,K,i,dem,tam:integer;
begin
repeat
begin
writeln(‘Nhap M, N, K (M,N,K<10000): ‘);
readln(M,N,K);
end;
until (M<10000) and (N<10000) and (K<10000);
dem:=0;
{cau a}
if M>N then
begin
M:=M+N;
N:=M-N;
M:=M-N;
end;
{cau b}
for i:=M to N do if i mod K = 0 then dem:=dem+1;
writeln(‘So luong cac so chia het cho ‘,K,’ tu ‘,M,’ den ‘,N,’ la :’, dem);
{cau c}
tam:=0;
for i:=1 to (K div 2) do
if K mod i = 0 then tam:=tam+i;
if tam=K then writeln(K,’ la so hoan hao’) else writeln(K,’ khong la so hoan hao’);
readln
end.
Bạn kiểm tra lại nha, mình chạy thư thì thấy đúng rồi á 😀