Nhập số N. Kiểm tra xem nó có phải số hoàn thiện không? (Số hoàn thiện là các ước cộng lại bằng chính nó) Bước 1: Nhập vào n Bước 2: Tính tổng S các số mà n chia hết trong khoảng [1..n-1] Bước 3: Nếu S = n, số n là số hoàn thiện
2 câu trả lời
program ct;
uses crt;
var N,i:integer;
S:longint;
begin clrscr;
writeln('Nhap so N: '); readln(N);
S:=0;
for i:=1 to N-1 do
S:=S+i;
if S=N then writeln(N,' la so hoan thien')
else writeln(N,' khong la so hoan thien');
readln;
end.
Học tốt!
program oken;
uses crt;
var n,s,i: longint;
begin
clrscr;
write('Nhap 1 so: '); readln(n);
for i:=1 to n-1 do
s:=s+i;
if s=n then
writeln(n,' la so hoan thien.')
else
writeln(n,' khong phai la so hoan thien.');
readln;
end.
- Đề 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
