def is_coprime(a, b):
    """Hàm ktra a và b có phải là nguyên tố cùng nhau"""
    while b:
        a, b = b, a % b
    return a == 1

n = int(input("Nhập stn n: "))
count = 0

for i in range(1, n+1):
    if is_coprime(i, n):
        count += 1

print(f"Số lượng số nguyên tố cùng nhau với n là {count}.")

uses crt;

var i,n,kt:integer;

begin

clrscr;

readln(n);

kt:=0;

for i=2 to trunc(sqrt(n)) do 

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

if (kt=0) and (n>1) then write('phai')

else write('Khong phai');

readln;

end.

Var i,n,souoc:integer;

Begin

While n <= 1 do

Begin

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

End;

For i:=1 to n do

If n mod i = 0 then souoc:=souoc+1;

If souoc = 2 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

Câu 3: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

if n>1 then 

begin

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

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

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

else writeln(n,' la hop so');

end

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

readln;

end.

Mình sẽ tạm hiểu đề này là viết chương trình in ra các số nguyên tố lớn hơn hoặc bằng n nha

#include <bits/stdc++.h>

using namespace std;

int n,m,i;

//chuongtrinhcon

bool ktnt(int n)

{ 

if (n<2) return false; 

for (int i=2; i*i<=n; i++) 

if (n%i==0) return false; 

return true;

}

int main()

{

cin>>n;

cout<<"Cac so nguyen to nho hon bang n thoa man yeu cau la"<<endl;

for (int i=2; i<=n; i++) 

if (ktnt(i)) cout<<i<<" ";

}

Bài 1: 

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

inc(i);

end;

writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

Bài 2: 

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

i:=i+2;

end;

writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

alo

tham khảo

TK

Var i ,n : integer;

S , T : real;

Begin

write ('n=') ; read (n) ;

S:= 0;

T:= 1;

For i:= 1 to n do

S:= S + i;

T:= T * i;

Writeln (' Tong cua ' ,n,' so dau tien la' , S );

Writeln (' Tich của ' ,n,' so dau tien la' , T );

Readln;

End.

program TongN;

var

     n, i, tong: integer;

begin

     tong := 0;

     writeln('Nhap so nguyen duong N: ');

     readln(n);

     i := 0;

     while i < n do

     begin

          i := i + 1;

          tong := tong + i;

     end;

     writeln('Tong cac so tu 1 den ', n, ' la ', tong);

     readln;

end.

#include <bits/stdc++.h>

using namespace std;

int n,kt,t;

int main()

{

cin>>n;

int t=0;

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

if (i%2==1) cout<<i<<" ";

cout<<endl;

for (int i=2; i<=n; i++)

{

kt=0;

for (int j=2; j*j<=i; j++)

if (i%j==0) kt=1;

if (kt==0) cout<<i<<" ";

}

return 0;

}

làm ơi cíuuuu

Tham Khảo:

#include <bits/stdc++.h>

using namespace std;

long long n,m,x,i;

//chuongtrinhcon

long long ucln(long long a,long long b)

{

if (b==0) return(a);

else return(ucln(b,a%b));

}

//chuongtrinhchinh

int main()

{

cin>>m>>n;

x=ucln(m,n);

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

cout<<endl;

cout<<"Uoc chung lon nhat="<<x<<endl;

cout<<"Boi chung nho nhat="<<(m*n)/x<<endl;

return 0;

}

program bai_1;
uses crt;
var i,n,j,d,dem:word;
begin
  clrscr;
  repeat
    write('nhap n:');readln(n);
    if (n<=0)or(n>=10000)then writeln('so ban nhap khong hop le, ban hay nhap lai:');
  until (n>0)and(n<10000);
  writeln('cac uoc so la so tu nhien cua ',n,' la:');
  for i:=1 to n do
  if n mod i=0 then write(i,'    ');
  writeln;
  dem:=0;
  for i:=2 to n do
  begin
    d:=0;
    for j:=2 to i div 2 do
    if i mod j=0 then inc(d);
    if (d=0)and(n mod i=0)then inc(dem);
  end;
  if dem>0 then writeln('cac uoc so la so nguyen to cua ',n,' la:');
  begin
    d:=0;
    for j:=2 to i div 2 do
    if i mod j=0 then inc(d);
    if (d=0)and(n mod i=0)then write(i,'    ');
  end;
  if dem=0 then write(0);
  readln;
end.