viết chương trình tìm ra số hoàn chỉnh nhỏ hơn n với n đc nhập từ bàn phím freepascal nha giúp mk vs mk đang cần gấp

tramanh1111

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 18 xem

1 trả lời

Thích Trả lời

thunhu1993

Program SHH;
Uses crt;
Var n,i: longint;

Function HH(a: longint):boolean;
Var s,i: longint;
Begin
s:=0;
For i:=1 to a div 2 do
If a mod i = 0 then s:=s+i;
If s=a then exit(true);
exit(false);
End;

Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do
If HH(i) then Write(i:5);
Readln
End.

Vote (0) Phản hồi (0) 2 năm trước

Mai2906

program hotboy;

uses crt;

var i,n,s,j: integer;

begin

clrscr;

s:=0;

write('nhap so n tu ban phim'); readln(n)

for i:=1 to n do

begin

for j:=1 to i do

if i mod j=0 then s:=s+j;

if s=2*i then

write('so hoan chinh nho hon n la',i:2:2);

end;

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Trong tự nhiên, nguyên tố brom có 2 đồng vị là 79 35 Br và 81 35 Br.tính%khối lượng đồng vị 79/35br trong HBr(lấy Mh=1)

Nhân vật lão Hạc trong truyện ngắn Lão Hạc của Nam Cao có những phẩm chất nào đẹp ? Em hiểu như thế nào về tình cảm của lão với con trai? Trình bày suy nghĩ về tình cảm đó thành 1hoặc 2 đoạn văn

em hay chung minh dieu kien tu nhien o viet nam thuan loi cho su ton tai phat trien cua nguoi nguyen thuy mon lich su

Tại sao cung và cầu cắt nhau tại 1 điểm

Biểu diễn các vectơ lực sau đây Trọng lực của 1 vật là 2000N ( tỉ xích tùy chọn) Lực kéo của 1 vật là 2000N Theo phương nằm ngang, chiều từ phải sang trái, tỉ xính bằng 500N

giải giúp mik bài nì với tìm y,biết: 31× y+ 38=2077

giải giúp mik bài này với(mai mik thi rồi)

Chose the word that has the underlined part pronunced differently from the rest

Vẽ sơ đồ bộ máy thời Trần và thời Lý

Đặt 2 câu , môi trường , rác thải đặt với cụm danh từ

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến