Trả lời TurborPascal

Question

C1: Số hoàn thiện là số tự nhiên có tổng các ước của nó (không kể nó) bằng chính nó. VCT kiểm tra xem một số được nhập từ bàn phím có phải là số hoàn thiện không?
C2: Một cửa hàng có các thùng sơn có cân nặng lần lượt là 16,17,21 kg. 1 người khách hàng cần mua 115kg.

Hãy VCT tính và cho biết cần bán bao nhiêu thùng sơn mỗi loại mà không phải bán lẻ thùng nào?

Answer 1

Câu 1:

Program so_hoan_hao;

uses crt;

Var S,n,i,j : interger;

Begin 

Clrscr;

Write('Nhap so n='); 

Readln (n);

For i:=1 to n do;

If i mod j = 0 then

S:=S+j;

if S= 2*i then

Write('la so hoan chinh');

end;

readln;

end.

*Số kg nhập từ bàn phím nha.

 Chúc bạn học tốt ~^^~