Tin học 10 - Lập trình Free Pascal

[Hồng Minh]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Mọi người giúp mình với nhé, cảm ơn nhiều

 

[Lê Thanh Huy]

1/
var i,k,n:longint;
begin
read(n);
for i:=1 to n-1 do
if n mod i=0 then k:=k+i;
if k=n then write('la so hoan hao')
else write('khong phai so hoan hao');
end.

 

[Lê Thanh Huy]

bạn dựa vào đó làm 2 đoạn còn lại nha

 

[Hồng Minh]

1/
var i,k,n:longint;
begin
read(n);
for i:=1 to n-1 do
if n mod i=0 then k:=k+i;
if k=n then write('la so hoan hao')
else write('khong phai so hoan hao');
end.

hình như mình chưa được học câu lệnh này hay sao ấy b. mình chỉ mới đc học mấy câu lệnh cơ bản : gán, rẽ nhánh, lặp xác định, lặp không xác định, div, mod thôi

 

[Hồng Minh]

Giúp tớ làm với các câu lệnh đã học đi @Lê Thanh Huy

 

[Nguyễn Thánh Tiền]

Giúp tớ làm với các câu lệnh đã học đi @Lê Thanh Huy

Học rồi nhé huy lam chuẩn đấy for là vòng lặp if la rẽ nhánh

 

[Hồng Minh]

Học rồi nhé huy lam chuẩn đấy for là vòng lặp if la rẽ nhánh

hì mình cũng xem lại r, tại học k hiểu gì hết hậu quả là v đó b, học r mà cứ ngĩ là chưa

 

[kingsman(lht 2k2)]

2/
program tim_so_dep;
uses crt;
begin
var i,k,n:longint;
begin
read(n);
for i:=1 to n-1 do
if n mod i=0 then k:=k+i;
if k<n then write('la so dep');
else write('khong phai la so dep');
end.