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.

#include <bits/stdc++.h>
using namespace std;
long long n,m;
//chuongtrinhcon
long long tcs(long long n)
{
    long long t=0;
    for (i=1; i<=n-1; i++)
        if (n%i==0) t=t+i;
    return(t);
}
//chuongtrinhchinh
int main()
{
    cin>>n>>m;
    if ((tcs(n)==m) and (tcs(m)==n)) cout<<"Yes";
    else cout<<"No";
}

 

11 tháng 12 2021

b: 

#include <bits/stdc++.h>

using namespace std;

long long a,b,t;

int main()

{

cin>>a>>b;

t=a+b;

cout<<t;

return 0;

}

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.

11 tháng 12 2021

b: 

#include <bits/stdc++.h>

using namespace std;

long long a,b,t;

int main()

{

cin>>a>>b;

t=a+b;

cout<<t;

return 0;

}

19 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n%2==0) cout<<"Chan";

else cout<<"Le";

return 0;

}

21 tháng 12 2021

hinhf như là sai rồi đó bn

 

7 tháng 3 2022

Tham khảo:

 

uses crt;

Var a,b,i : Integer ;

Begin

Clrscr ;

Write ('Nhap a: '); readln (a);

Write ('Nhap b: '); readln (b);

i:=a + b;

If i mod 2 = 0 then writeln ('Tong hai so ',a,' va ',b,' la ',i,', day la mot so chan')

Else writeln ('Tong hai so ',a,' va ',b,' la ',i,', day la mot so le');

Readln ;

End.

#include <bits/stdc++.h>

using namespace std;

long long a,b,t;

int main()

{

cin>>a>>b;

t=a+b;

if (t>0) cout<<"Tong la so duong";

else if (t<0) cout<<"Tong la so am";

else cout<<"Tong la so 0";

cout<<endl;

if (t%2==0) cout<<"Tong co chia het cho 2";

else cout<<"Tong khong chia het cho 2";

return 0;

}

23 tháng 12 2016

Program ba_canh_cua_tam_giac;

uses crt;

var a,b,c: real;

BEGIN

Write('nhap do dai canh a'); Readln(a);

Write('nhap do dai canh b'); Readln(b);

Write('nhap do dai canh c'); Readln(c);

If (a<(b+c)) and (b<(c+a)) and (c<(b+a)) then write('do la do dai cua mot tam giac')

else write('do khong la do dai cua mot tam giac');

Readln;

END.

Thanks

23 tháng 12 2016

bạn ơi viết chương trình bằng chữ hay là ở trong pascal z bạn

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a*b);

if (a>0) then writeln('a la so nguyen duong')

else writeln('a la so nguyen am');

readln;

end.

2 tháng 5 2021

Mình chỉ viết được pascal được không?

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

long long t=a+b;

if (t>0 && t%3==0) cout<<"YES";

else cout<<"NO";

return 0;

}