nhập 1 số tự nhiên n được gọi là số palindrome ế cách viết thạp phan của số đó đối xứn (21122,353) nhập vào số nguyên dương dưới 10000, hãy viết kiể m tra số có phải là số palidrome không?
vd nhập n=353
xuất 353 la số palindrome
Một số tự nhiên N được gọi là số Palindrome Nếu cách viết thập phân của số đó đối xứng (2112;353). Cho file PR.INP gồm một số nguyên dương dưới 10.000, hãy kiểm tra xem số đó có phải là số Palindrome không và in kết quả vào file PR.OUT? ( lập trình C++)
a, Viết chương trình nhập vào số nguyên dương, tính N!=1*2*3*...*N
VD N=5 thì in ra 5!=120
b, Viết chương trình tính tổng số chẵn từ 1 đến N với N là số nguyên sau đó hiển thị ra tông
VD N=10 thì tổng số chẵn là 30
c, Viết chương trình nhập vào của một số nguyên dương N, kiểm tra xem có phải số nguyên tố
a)
uses crt;
VAR
n, d, i: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
d : = 1;
For i: = 1 to n do
d: = d*i;
Writeln ('d=',d);
Readln;
END.
c)
uses crt;
VAR
n, i, demuoc: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
demuoc: = 0;
For i: = 1 to n do
If n mod i = 0 then
demuoc : = demuoc + 1;
If demuoc = 2 then
Writeln ('n la so nguyen to')
ELSE
Writeln ('n khong phai la so nguyen to');
Readln ;
END.
Còn phần b bạn tự nghĩ nha!
Chúc bạn học tốt!
Câu 1: Viết chương trình nhập từ bàn phím số nguyên n (số đối của n<10^9). Kiểm tra n có phải là số nguyên dương và chia hết cho 5.
Câu 2: Viết chương trình nhập từ bàn phím số nguyên n (số đối của n<10^9). Kiểm tra n có phải là số nguyên dương và chia hết cho 3.
Cau 1:
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n>0 && n%5==0) cout<<"Phai";
else cout<<"Khong phai";
}
Bài tập 1: Kiểm tra số x nhập vào từ bàn phím có phải là số nguyên tố hay
không ?
VD: nhập x
• x-5 KQ: 5 là số nguyên tố
• x=4 KQ: 4 không phải là số nguyên tố
Bài tập 2: Kiểm tra số n nhập vào từ bàn phím có phải là số đối xứng không ?
(Giới hạn 4 con số)
VD: nhập x =
• x- 1221 KQ: 12321 là số đối xứng
• x- 3712 KQ: 3712 không phải là số đối xứng
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long n,i;
bool kt;
int main()
{
cin>>n;
if (n>1)
{
kt=true;
for (i=2; i*i<=n; i++)
if (n%i==0) kt=false;
if (kt==true) cout<<n<<" la so nguyen to";
else cout<<n<<" khong la so nguyen to";
}
else cout<<n<<" khong la so nguyen to";
return 0;
}
Bài 1: Viết công thức nhập vào một số thự nhiên n. Sau đó kiểm tra xem số n có phải là số nguyên tố hay không?
Bài 2: Viết công thức vào 1 số tự nhiên n và in ra màn hình tất cả các ước
Bài 1:
uses crt;
var n,i,kt: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.
Bài 2:
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.
viết chương trình nhập số tự nhiên N từ bàn phím , kiểm tra số N đó có phải là số nguyên tố không ?
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.
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.
Sử dụng Python để Viết chương trình cho người dùng nhập vào số nguyên dương n, rồi kiểm tra các số nhập vào có phải là số nguyên tố hay không? Và đếm xem có bao nhiêu số nguyên tố được nhập vào thì in ra màn hình.
vết chương trình nhập vào số n,kiể tra n có phải là số nguyên tố hay không?
sử dụng while....do
Var n, i : integer;
Begin
write(‘Nhập số n = ‘);
readln(n);
i := 2;
while (n mod i <> 0) and (i < n) do
i := i + 1;
if i < n then write(n, ‘ là số nguyên tố.’)
else write(n, ‘ là hợp.’)
readln;
End.
uses crt;
var i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
i:=1;
while i<=n do
begin
if n mod i=0 then inc(dem);
i:=i+1;
end;
if dem=2 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
readln;
end.