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.
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.
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:
#include <bits/stdc++.h>
using namespace std;
long long a,b,t;
int main()
{
cin>>a>>b;
t=a+b;
cout<<t;
return 0;
}
#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;
}
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.
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;
}
Bài 2:
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin >>x>>y;
cout<<x<<" "<<y;
swap(x,y);
cout<<x<<" "<<y;
return 0;
}
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
bạn ơi viết chương trình bằng chữ hay là ở trong pascal z bạn
#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;
}
#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";
}