Viết CT nhập vào một phân số, kiểm tra xem phân số đó có tối giản hay ko ?
Ai bt thì làm ơn giúp nha <3 <3
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.
Program Marble_Top;
uses crt;
var i,n,t:integer;
begin
write('nhap n '); readln(n);
for i:= 1 to n do
if i*i =n then t:= t+1;
if t=1 then write (n, ' la so chinh phuong') else write (n, ' khong la so chinh phuong');
readln
end.
var a:integer;
begin
readln(a);
if sqr(trunc(sqrt(a)))=a then
writeln('la so chinh phuong') else writeln('khong la so chinh phuong');
end.
Bn bt lm cách này ko?
Theo bài ra ta có:
abab = a+9b+15a+9b+15
=> a (b +15) = b (a + 9)
=> ab + 15a = ab + 9b
=> ab - ab + 15a - 9b = 0
=> 0 + 15a - 9b = 0
=> 15a = 9b
=> abab = 915915 = 4545
Vậy abab = 4545.
Theo bài ra ta có:
abab = a+9b+15a+9b+15
=> a (b +15) = b (a + 9)
=> ab + 15a = ab + 9b
=> ab - ab + 15a - 9b = 0
=> 0 + 15a - 9b = 0
=> 15a = 9b
=> abab = 915915 = 4545
Vậy abab = 4545.
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:
Thuật toán:
-Bước 1: Nhập n
-Bước 2: Nếu \(\sqrt{n}=trunc\left(\sqrt{n}\right)\) thì n là số chính phương
không thì n không phải là số chính phương
-Bước 3: Kết thúc.
Viết chương trình
uses crt;
var n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<0 then writeln(n,' khong la so chinh phuong')
else begin
if sqrt(n)=trunc(sqrt(n)) then writeln(n,' la so chinh phuong')
else writeln(n,' khong la so chinh phuong');
end;
readln;
end.
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.
#include <bits/stdc++.h>
using namespace std;
long long a,b,t;
int main()
{
cin>>a>>b;
t=a*b;
if ((t%5==0) or (t%8==0)) cout<<"YES";
else cout<<"NO";
}
#include <bits/stdc++.h>
using namespace std;
long long a,b;
//chuongtrinhcon
long long ucln(long long a,long long b)
{
if (b==0) return(a);
else return(ucln(b,a%b));
}
int main()
{
cin>>a>>b;
if (ucln(a,b)==1) cout<<"Toi gian";
else cout<<"Khong toi gian";
return 0;
}