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!!!!!!!!!
K
Khách
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.
Những câu hỏi liên quan
QC
2
25 tháng 1 2021
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.
29 tháng 3 2019
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 ..........
1 tháng 3 2022
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;
}
M
2
KV
13 tháng 4 2023
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.
H9
HT.Phong (9A5)
CTVHS
13 tháng 4 2023
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.
KV
10 tháng 5 2023
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.
KV
10 tháng 5 2023
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.
30 tháng 9 2017
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
trường thái sơn à chắc mới hok đội tuyển nhỉ
đúng r bn
mà sao bn bt zậy