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.
2:
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,i,kt=0;
cin>>n;
for (int i=2; i*i<=n; i++)
if (n%i==0) kt=1;
if (kt==0) cout<<"YES";
else cout<<"NO";
}
#include <bits/stdc++.h>
using namespace std;
bool ktsnt(long long n)
{
long long i;
if(n<2) return false;
else
{
for(i=2;i<=sqrt(n);i++)
if(n%i==0)
return false;
return true;
}
}
long long cnt;
int main(){
ios_base::sync_with_stdio(0);
cin.tie(0); cout.tie(0);
cin>>cnt;
if(ktsnt(cnt)==true)
cout<<"YES";
else
cout<<"NO";
return 0;
}
var i,n,dem:integer;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do
begin
if n mod i = 0 then dem:=dem+1;
end;
if dem = 2 then write(n,' la so nguyen to')
else write(n,' khong la so nguyen to');
readln;
end.
c:
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
if (a[i]%2==0) cout<<a[i]<<" ";
return 0;
}
d:
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,nn;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
nn=a[1];
for (i=1; i<=n; i++) nn=min(nn,a[i]);
cout<<nn;
return 0;
}
Bài 1
Var s,i:integer;
tb:real;
Begin
Write('Nhap n = ');readln(n);
i:=1;
s:=0;
While i<=n do
Begin
s:=s+i;
i:=i+1;
End;
tb:=s/n;
Writeln('Tong la ',s);
Write('Trung binh la ',tb:10:2);
Readln;
End.
Bài 2
Var i,n,souoc:integer;
Begin
Write('Nhap n = ');readln(n);
i:=1;
While i <= n do
Begin
i:=i + 1;
If n mod i = 0 then souoc:=souoc + 1;
End;
If souoc = 1 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
uses crt;
var n,i,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 n,i,souoc:integer;
Begin
Write('Nhap N = ');readln(n);
souoc:=0;
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.
program KiemTraSoNguyenTo;
var
N, i: integer;
IsPrime: boolean;
begin
write('Nhap N: ');
readln(N);
IsPrime := true;
if (N < 2) then
IsPrime := false
else
for i := 2 to trunc(sqrt(N)) do
if (N mod i = 0) then
begin
IsPrime := false;
break;
end;
if IsPrime then
writeln(N, ' la so nguyen to')
else
writeln(N, ' khong la so nguyen to');
readln;
end.
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
*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
program tim_uoc;
uses crt;
var n,i,j:longint;
begin
clrscr;
write('nhap so n:');readln(n);
write('cac uoc cua n la:');
for i:=1 to n do
if n mod i=0 then write(i:3);
writeln;
j:=0;
for i:=1 to n do
if n mod i=0 then j:=j+1;
if j=2 then writeln(n,' la so nguyen to')
else writeln(n,' khong phai la so nguyen to');
readln;
end.