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
Quỳnh Hoa
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 10 2021 lúc 23:22

#include <bits/stdc++.h>

using namespace std;

long n,i,dem,t;

int main()

{

cin>>n;

dem=0;

t=0;

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

if (n%i==0) 

{

dem++;

t=t+i;

}

cout<<dem<<" "<<t;

return 0;

}

Hoà Trần
Xem chi tiết
Hoà Trần
6 tháng 10 2021 lúc 22:50

Ai giải giúp mik đi ạ đag hok thj bị cô gọi lên bảng ko bt lm như thek nào mn giúp mik vs ạ 😭😭😭😭

Nguyễn Lê Phước Thịnh
6 tháng 10 2021 lúc 23:33

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,i;

cin>>n;

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

if (n%i==0) cout<<i<<" ";

return 0;

}

hùng tín trang
Xem chi tiết
Minh Lệ
17 tháng 2 2022 lúc 21:26

Program HOC24;

var i,n: integer;

begin

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

for i:=1 to n do if n mod i=0 then write(i,' ');

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.

hùng tín trang
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2022 lúc 10:14

#include <bits/stdc++.h>

using namespace std;

long long i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) if (n%i==0) cout<<i<<" ";

return 0;

}

Chira Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 2 2021 lúc 20:20

for i:=1 to n do 

  if n mod i=0 then write(i:4);

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

Chương trình đầy đủ:

uses crt;

var n,i:integer;

begin

clrscr;

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

for i:=1 to n do 

  if n mod i=0 then write(i:4);

readln;

end.

Huệ Hà
Xem chi tiết
Huệ Hà
3 tháng 4 2022 lúc 9:15

Giúp em với ạ mai em thi cuối học kì rồi ạ 

Trí Nguyễn
Xem chi tiết
Phía sau một cô gái
7 tháng 7 2023 lúc 20:19

program bai_toan;

var

      N, i, sum: integer;

begin

      write('Nhap so N: ');

      readln(N);

      write('Cac uoc cua ', N, ' khong ke ', N, ' la: ');

      for i := 1 to N - 1 do

            if N mod i = 0 then

                  write(i, ' ');

      writeln;

      sum := 0;

      for i := 1 to N - 1 do

      begin

            if N mod i = 0 then sum := sum + i;

      end;

      if sum = N then writeln(N, ' la so hoan hao')

      else writeln(N, ' khong phai la so hoan hao');

      writeln;

      writeln('Tat ca so hoan hao trong pham vi 1 -> ', N, ' la:');

      for i := 1 to N do

      begin

            sum := 0;

            for j := 1 to i - 1 do

            begin

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

            end;

            if sum = i then writeln(i);

      end;

      readln;

end.

Kien
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 10 2021 lúc 0:04

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

  readln(a[i]);

for i:=1 to n do 

  write(a[i]:4);

writeln;

for i:=1 to n do 

  if (a[i]+a[i+1] mod 10=0) then 

begin

writeln(a[i],' ',a[i+1]);

writeln(i,' ',i+1);

end;

readln;

end.