Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyễn Thị Kiều Oanh
Xem chi tiết
Minh Ngọc
Xem chi tiết
Đỗ Tuệ Lâm
17 tháng 2 2022 lúc 13:58

{PROGRAM bai_tap;
USES crt ;
VAR i , n, t:integer;
BEGIN  
  clrscr;
  Write('Nhap n');Readln(n);
  t:=0;
  For i:=1 to n-1 do
  if n mod i=0 then t:=t+i;
  if t=n then write(n,' la so hoan chinh');
  else Writeln(n,' Khong la so hoan chinh');
  Readlnnline Pascal Compiler.
begin    
  End,
Readlnnline
END.

}

Nguyễn Lê Phước Thịnh
18 tháng 2 2022 lúc 0:08

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n/2; i++) 

if (n%i==0) t=t+i;

if (t==n) cout<<"YES";

else cout<<"NO";

return 0;

}

Hiền thúy
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 10 2021 lúc 23:50

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n/2;i++)

if (n%i==0) t=t+i;

if (t==n) cout<<"Day la so hoan hao";

else cout<<''Day khong la so hoan hao";

return 0;

}

вùʏ zăɴ ĸнôʏ
20 tháng 10 2021 lúc 10:41

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n/2;i++)

if (n%i==0) t=t+i;

if (t==n) cout<<"Day la so hoan hao";

else cout<<''Day khong la so hoan hao";

return 0;

}

Hiền thúy
25 tháng 10 2021 lúc 6:40

Kiểu liệt kê và sơ đồ khối ấy ạ

Lại Quang Thắng
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 10 2021 lúc 21:25

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

long long a;

int main()

{

cin>>a;

if (a%2==0) cout<<"la so chan";

else cout<<"La so le";

return 0;

}

Linh Hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 1 2021 lúc 9:13

Input: Số a

Output: Kiểm tra xem a là số âm hay là số dương

Ý tưởng: Sau khi nhập a, chúng ta sẽ kiểm tra xem nếu a<0 thì a là số âm, nếu a>0 thì a là số dương còn nếu a=0 thì a không là số âm cũng không là số dương

Thuật toán

-Bước 1: Nhập a

-Bước 2: Nếu a<0 thì xuất a là số âm

Nếu a>0 thì a là số dương

Nếu a=0 thì a không là số âm cũng không là số dương

-Bước 3: Kết thúc

nguyen tnhi
Xem chi tiết
Yen Phuong Duong
Xem chi tiết
Nguyên Khôi
19 tháng 10 2021 lúc 14:23

Hỏi đáp Tin học

Nguyên Khôi
19 tháng 10 2021 lúc 14:24

Input: số nguyên N

Output: N là chẵn hoặc N là lẻ

- Thuật toán liệt kê:

+ Bước 1: Nhập N

+ Bước 2: Nếu N chia hết cho 2 thì in ra N chẵn và kết thúc thuật toán ngược lại nếu N không chia hết cho 2 thì in ra N lẻ và kết thúc thuật toán

- Thuật toán sơ đồ khối:

 

Hỏi đáp Tin học

 

 

 

 

Minh Hoàng
Xem chi tiết
Buddy
1 tháng 2 2021 lúc 21:18

Cho biến i chạy từ 1 đến n. Xét i. Nếu nó là số hoàn chỉnh thì in ra.

Program Tim_uoc_2;

uses crt;

Var S, n, i,j: longint;

Begin

clrscr;

Write('Nhap so n ='); readln(n);

For i:=1 to n do

Begin

S:=0;

For j:=1 to i do if i mod j = 0 then S:=S+j;

if S = 2*i then write(i:6,',');

end;

readln

end.

Nguyễn Lê Phước Thịnh
1 tháng 2 2021 lúc 21:29

uses crt;

var n,i,t,j:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

t:=0;

for j:=1 to i do 

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

if t=i then write(i:4);

end;

readln;

end.

phạm ngọc hân
Xem chi tiết