K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

b: 

Input: a,b

Output: UCLN(a,b)

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.

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.

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

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

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,b,c,ucln,i:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

while a<>b do 

  begin

if a>b then a:=a-b

else b:=b-a;

end;

ucln:=a;

while ucln<>c do 

 begin

if ucln>c then ucln:=ucln-c

else c:=c-ucln;

end;

writeln(ucln);

readln;

end.

19 tháng 10 2021

#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;

}

27 tháng 7 2023

Số p4 có 5 ước số tự nhiên là 1 , p, p2 , p3 , p4
Ta có : 1 + p + p2 + p3 + p4 = n2     (n  N)
Suy ra : 4n= 4p+ 4p+ 4p+ 4p + 4 > 4p+ 4p+ p= (2p+ p)2
Và  4n2 < 4p+ p2 + 4 + 4p+ 8p+ 4p = (2p+ p + 2)2.
Vậy : (2p+ p)< (2n) < (2p+ p + 2)2.
Suy ra :(2n)2 = (2p+ p + 2)2 = 4p+ 4p+5p+ 2p + 1

vậy 4p + 4p+5p+ 2p + 1 = 4p+ 4p+4p+4p + 4   (vì cùng bằng 4n2 )

=> p- 2p - 3 = 0  => (p + 1) (p - 3) = 0

do p > 1  => p - 3 = 0   => p = 3

2 tháng 9 2016

a)

Vì 3 là số nguyên tố

=> Các ước của m là 

\(1;3;3^2;3^3;....;3^{34}\)

Tổng các ước của m là 

\(S=1+3+3^2+....+3^{34}\)

\(\Rightarrow3S=3+3^2+3^3+....+3^{35}\)

\(\Rightarrow3S-S=\left(3+3^2+3^3+....+3^{35}\right)-\left(1+3+3^2+....+3^{34}\right)\)

\(\Rightarrow2S=3^{35}-1\)

\(\Rightarrow S=\frac{3^{35}-1}{2}\)

2 tháng 9 2016

Câu a thì dễ r` c` câu b