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
Đỗ Trọng TÍn
Xem chi tiết
Ly Huỳnh
Xem chi tiết
Minh Lệ
12 tháng 3 2023 lúc 21:57

Program HOC24;

var i,t,k,n: integer;

begin

write('Nhap N: '); readln(n);

t:=0; k=0;

while k=0 do

begin

n:=n+1;

for i:=1 to n do if n mod i=0 then t:=t+i;

if t=n then

begin

write(n);

k:=k+1

end else t:=0;

end;

readln

end.

Hiền Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 4 2021 lúc 19:46

a)

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-1 do 

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

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

end;

readln;

end.

Nguyễn Lê Phước Thịnh
26 tháng 4 2021 lúc 19:47

b)

uses crt;

var gt:real;

i,n:integer;

begin

clrscr;

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

gt:=1;

for i:=1 to n do 

 gt:=gt*i;

writeln(gt:0:0);

readln;

end.

Phú Nhuận Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 3 2021 lúc 21:33

uses crt;

var n,i,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 writeln(n,' la so hoan chinh')

else writeln(n,' khong la so hoan chinh');

readln;

end.

Lala
Xem chi tiết
nuinuini
Xem chi tiết
....
22 tháng 10 2021 lúc 8:53

uses crt;

var i:integer;

begin

clrscr;

for i:=0 to 9999 do 

  if trunc(sqrt(i))=sqrt(i) then write(i:4);

readln;

end.

Py
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 4 2021 lúc 21:25

Câu 1: 

*Mô tả thuật toán:

Bước 1: Nhập n

Bước 2: kt←0; i←2;

Bước 3: Nếu n chia hết cho i thì kt←1;

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Nếu kt=0 thì n là số nguyên tố

không thì không phải

Bước 7: Kết thúc

Genj Kevin
25 tháng 4 2021 lúc 21:26

*Mô tả thuật toán:

Bước 1: Nhập n

Bước 2: kt←0; i←2;

Bước 3: Nếu n chia hết cho i thì kt←1;

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Nếu kt=0 thì n là số nguyên tố

không thì không phải

Bước 7: Kết thúc

Nguyễn Lê Phước Thịnh
25 tháng 4 2021 lúc 21:26

Câu 1: 

uses crt;

var kt,n,i:integer;

begin

clrscr;

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

kt:=0;

for i:=2 to n-1 do 

  if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

readln;

end.

T Đạt
Xem chi tiết
HT.Phong (9A5)
29 tháng 3 2023 lúc 16:00

Uses crt;

var n,i,z: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(n mod i=0) then z:=z+1;

if(z=2) then writeln(z,' la so nguyen to')

else writeln(z,' khong phai la so nguyen to');

readln;

end.

Nguyễn Hoàng Duy
29 tháng 3 2023 lúc 23:45

program PrimeNumber;

uses crt;

var
  N, i: integer;
  isPrime: boolean;

begin
  clrscr;
  write('Enter N: ');
  readln(N);

  if N <= 1 then
  begin
    writeln('N is not a prime number');
  end
  else
  begin
    isPrime := true;
    for i := 2 to trunc(sqrt(N)) do
    begin
      if N mod i = 0 then
      begin
        isPrime := false;
        break;
      end;
    end;

    if isPrime then
    begin
      writeln('N is a prime number');
    end
    else
    begin
      writeln('N is not a prime number');
    end;
  end;

  readln;
end.

Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
9 tháng 3 2019 lúc 2:55

Ta có Ư(12) = {1; 2; 3; 4; 6; 12}

1 + 2 + 3 + 4 + 6 = 16

Suy ra số 12 không phải là số hoàn chỉnh

Ta có Ư(28)= {1; 2; 4; 7; 14; 28}

1 + 2 + 4 + 7 + 14 = 28

Suy ra số 28 là số hoàn chỉnh

Ta có: Ư(476) = {1; 2; 4; 7; 14; 17; 28; 34; 68; 119; 238; 476}

1 + 2 + 4 + 7 + 14 + 17+ 28 + 34 + 68 + 119 + 238 = 532

Suy ra số 476 không phải số hoàn chỉnh

Capheny Bản Quyền
28 tháng 6 2021 lúc 17:37

Ước của 20 là 1 ; 2 ; 4 ; 5 ; 10 

1 + 2 + 4 + 5 + 10 = 22 

Ước của 28 là 1 ; 2 ; 4 ; 7 ; 14 

1 + 2 + 4 + 7 + 14 = 28 

Ước của 45 là 

1 + 3 + 5 + 9 + 15 = 33 

Ước của 128 là 1 ; 2 ; 4 ; 8 ; 16 ; 32 ; 64 

1 + 2 + 4 + 8 + 16 + 32 + 64 = 127 

Vậy 28 là số hoàn chỉnh 

Khách vãng lai đã xóa