Kiểm tra hai số a, b có phải hai số nguyên tố cùng nhau hay không? (Bài tập Pascal CLB Tin học lớp 6)
Ai giúp mk với!!!!!!!!!
Bài NTO1 Cho N số nguyên. Yêu cầu kiểm tra các số còn lại với số ban đầu có phải là số nguyên tố cùng nhau không(2 số được gọi là số nguyên tố cùng nhau khi hai số có ước chung lớn nhất là 1). Dữ liệu vào: NTO1.INP gồm Một dòng chứa 1 số N Dòng thứ hai chứa dãy số A[1..N] (các số cách nhau ít nhất một dấu cách) Dữ liệu ra: NTO1.OUT gồm N-1 dòng trả lời tương ứng với các số còn lại so với số ban đầu trả lời là YES nếu là số nguyên tố cùng nhau ngược lại là No
Nhập vào một số nguyên n . Kiểm tra xem nó có phải số siêu nguyên tố hay không. Ai giúp e vs ạ :(
uses crt;
var a,x:longint;
{------------------ham-kiem-tra-so-nguyen-to---------------}
function ktnt(x:longint):boolean;
var kt:boolean;
i:longint;
begin
kt:=true;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then
begin
kt:=false;
break;
end;
if kt=true then ktnt:=true
else ktnt:=false;
end;
{---------------chuong-trinh-chinh-------------------}
begin
clrscr;
repeat
write('Nhap a='); readln(a);
until a>10;
if ktnt(a)=true then
begin
x:=a;
repeat
a:=a div 10;
if ktnt(a)=true then a:=a div 10;
until a<10;
if (ktnt(a)=true) and (a>1) then writeln(x,' la so sieu nguyen to')
else writeln(x,' khong la so sieu nguyen to');
end
else writeln(a,' khong la so sieu nguyen to');
readln;
end.
bn ơi cấu hỏi hơi bị khó hiểu xíu
Các bạn có những bài toán về hay cộng hai số nguyên cùng dấu và khác dấu ko? Mai mk kiểm tra 15 phút lớp 6
Cảm ơn trước!
có đấy:2763+152
b) (-7)+(-14)
c) (-5 )-(-248)
d)17+/-33/
mak từ đầu năm đến giờ mik chưa kiểm tra 15 p môn toán
Với giá trị nào của x thuộc Z các phân số sau có giá trị là 1 số nguyên:
b) B= x-2/x+3
nhanh giúp mik nha thứ hai kiểm tra số 1 tiết rồi, câu này là câu b bài 6 trong đề cương ôn tập kiểm tra 1 tiết số lớp 6 THCS Thái Thịnh, bạn/anh/chị nào cùng trường làm rồi hoặc biết làm chỉ cho mik/em với nhé(tui lớp 6A4)
Cảm ơn ạ!
B=x-2/x+3
Để phân số sau là 1 số nguyên
=>x-2 chia hết cho x+3
=>x-2-(x+3) chia hết cho x+3
=>x-2-x-3 chia hết cho x+3
=>-5 chia hết cho x+3
=>x+3 thuộc Ư(-5)={1,-1,5,-5 }
=>x thuộc {-2,-4,2,-8}
............chúc bạn học tốt ..........
Hôm nay, em gái của HOA học về số nguyên tố nên HOA quyết định ra một bài tập cho em. Đề bài như sau: Cho một số tự nhiên N, kiểm tra N có phải số nguyên tố hay không. Nhưng em gái HOA lại làm xong (và đương nhiên là đúng) quá nhanh, nên HOA quyết định ra thật nhiều bài nữa. Hãy giúp em gái HOA giải các bài đó nhé.
Dữ liệu
Dòng đầu ghi một số nguyên dương K là số số cần kiểm tra.K dòng tiếp theo mỗi dòng ghi một số tự nhiên N là số cần kiểm tra.Kết quả
In ra K dòng, mỗi dòng là YES nếu số đó là số nguyên tố, và NO nếu không phải.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;
}
Vct pascal nhập n ( n>0) kiểm tra n có phải là số nguyên tố không
var i,n:integer;
begin
write('n = ');readln(n);
i:=2;
while n mod i <> 0 do i:=i+1;
if i = n then write(n,' la so nguyen to')
else write(n,' khong la so nguyen to');
readln
end.
Uses crt;
var i,n,p: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(n mod i=0) then p:=p+1;
if(p=2) then writeln(n,' la so nguyen to')
else writeln(n,' khong phai la so nguyen to');
readln;
end.
Câu 58: Viết chương trình Pascal nhập vào bàn phím một số nguyên n, Kiểm tra n có là số lẻ hay không, in ra thông báo. Câu 61: Viết chương trình Pascal nhập vào bàn phím một số nguyên n, Kiểm tra n có là số chẵn hay không, in ra thông báo. Giúp mik 2 câu này với ak
Câu 58:
Var n:integer;
Begin
Write('n = ');readln(n);
If n mod 2 <> 0 then write(n,' la so le')
Else write(n,' khong la so le');
Readln
End.
Câu 61:
Var n:integer;
Begin
Write('n = ');readln(n);
If n mod 2 = 0 then write(n,' la so chan')
Else write(n,' khong la so chan');
Readln
End.
Xác định bài toán: “ kiểm tra n có phải là số nguyên tố hay không? ”
A. Input: Nhập số n; Output: n là số nguyên tố hoặc n không là số nguyên tố
B. Input: n là số nguyên tố hoặc n không là số nguyên tố; Output: Nhập số n
C. Input: n là số nguyên tố; Output: Nhập số n
D. Input: Nhập số n; Output: n là số nguyên tố
Xác định bài toán:
+ Input là điều kiện cho trước
+ Output là kết quả cần thu được.
Đáp án: A