Viết chương trình kiểm tra xem số đó có phải là số hoàn thiện hay không? Pascal nhé
2 câu trả lời
program bai_giai;
uses crt;
var n,i,tong:longint;
begin
clrscr;
write('nhap n:');readln(n);
tong:=0;
for i:=1 to n-1 do if(n mod i=0)then tong:=tong+i;
if(tong=n)then write('n la so hoan thien')else write('n khong la so hoan thien');
readln;
end.
Program traloi;
var i,n:interger; t:real;
Begin
Repeat
write('Nhap n =');
readln(n);
until n>1;
t:=0;
for i:=1 to n-1 do if n mod i = 0 then t:=t+1;
if t=n then writeln(n,'la so hoan thien') else (n, 'khong phai la so hoan thien');
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
