Kiem tra n có phải là số nguyen tố hay không ,n được nhập từ ban phím , n thuộc N ( biểu diễn thuật toán bằng hai phương Pháp)
1) mô tả thuật toán và viết chương trình kiểm tra một số tự nhiên n nhập vào từ bàn phím có phải là số nguyên tố hay không?
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
Câu 1:
uses crt;
var kt,n,i: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.
Hãy dùng phương pháp liệt kê để thể hiện thuật toán của bài toán sau:
Cho một dãy a gồm n số nguyên a1,a2,..an được nhập từ bàn phím (n<=100) có giá trị tuyệt đối không lớn hơn 1000. Hãy cho biết a có phải là một cấp số cộng không?
Viết chương trình nhập vào một số nguyên N từ bàn phím, sau đó kiểm tra N có phải là số nguyên tố hay không?
program kiem_tra_so_nguyen_to;
var
N, i: Integer;
laSoNguyenTo: Boolean;
begin
Write('Nhap vao mot so nguyen duong N: ');
Readln(N);
laSoNguyenTo := True;
if (N < 2) then
laSoNguyenTo := False
else
begin
for i := 2 to N - 1 do
begin
if (N mod i = 0) then
begin
laSoNguyenTo := False;
Break;
end;
end;
end;
if (laSoNguyenTo) then
Writeln(N, ' la so nguyen to')
else
Writeln(N, ' khong la so nguyen to');
Readln;
end.
Viết thuật toán nhập vào từ bàn phím số nguyên dương N.
a, Kiểm tra xem số đó là chẵn hay lẻ.
b. Kiểm tra xem số đó có chia hết cho 3 hay không?.
Input: số nguyên N
Output: N là chẵn hoặc N là lẻ
- Thuật toán liệt kê:
+ Bước 1: Nhập N
+ Bước 2: Nếu N chia hết cho 2 thì in ra N chẵn và kết thúc thuật toán ngược lại nếu N không chia hết cho 2 thì in ra N lẻ và kết thúc thuật toán
- Thuật toán sơ đồ khối:
1.Xác định bài toán và mô tả thuật toán tìm số lớn nhất trong 3 số nguyên x,y,z được nhập vào từ bàn phím.
2. Viết chương trình nhập từ bàn phím số nguyên n (|n| <_ 10^9o). KIểm tra n có phải là sô snguyeen dương và chia hết cho 5.
XIN MỌI NGƯỜI GIÚP MÌNH VỚI Ạ! MÌNH CÁM ƠN
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";
}
Nhập số nguyên dương n từ bàn phím. Kiểm tra số nguyên dương n có phải số chính phương hay không
#include <bits/stdc++.h>
using namespace std;
long long n,x;
int main()
{
cin>>n;
x=sqrt(n);
if (x*x==n) cout<<n<<" la so chinh phuong";
else cout<<n<<" khong la so chinh phuong";
return 0;
}
Viết chương trình nhập vào số tự nhiên N từ bàn phím. Kiểm tra số đó có chia hết cho 2 hay không?
Thuật toán
INPUT: Số tự nhiên N
OUTPUT: Kết quả kiểm tra số N: ‘là số chia hết cho 2’ hoặc ‘là số không chia hết cho 2’.
Bước 1. Nếu (N chia 2 lấy phần dư) = 0 thì in kết quả ‘là số chia hết cho 2’ ngược lại in kết quả ‘là số không chia hết cho 2’
Bước 2. Kết thúc thuật toán.
thực hiện trên pascal online ạ :((
giúp em với
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n%2==0) cout<<"YES";
else cout<<"NO";
return 0;
}
Cho 1 số nguyên x bất kì được nhập vào từ bàn phím hãy kiểm tra xem x có phải la số nguyên tố hay không? Mô tả thuật toán và viết chương trình
#include <bits/stdc++.h>
using namespace std;
long long n;
//chuongtrinhcon
bool ktnt(long long n)
{
if (n<2) return(false);
else
for (int i=2; i*i<=n;i++)
if (n%i==0) return (false);
return(true);
}
//chuongtrinhchinh
int main()
{
//freopen("KTSNT.INP","r",stdin);
//freopen("KTSNT.OUT","w",stdout);
cin>>n;
if (ktnt(n)==true) cout<<"1";
else cout<<"0";
return 0;
}
Viết chương trình nhập vào số nguyên N từ bàn phím, sau đó kiểm tra N có phải là số nguyên tố hay không
plss
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.