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 HOC24;
var n,i: integer;
t: longint;
Begin
write('Nhap N: '); readln(N);
t:=0;
for i:=1 to n do t:=t+i;
if t mod 2=0 then write('Tong la so chan') else write('Tong la so le');
readln
end.
#include <bits/stdc++.h>
using namespace std;
long long a,b,c;
int main()
{
cin>>a>>b>>c;
if (a+c %2==0) cout<<"AC ";
if (b+c%2==0) cout<<"BC ";
if (a+b%2==0) cout<<"AB";
return 0;
}
Program Chan_le;
uses crt;
var a: integer;
begin
clrscr;
write('nhap vao so a ='); readln(a);
if ( a mod 2 = 0 ) then write(' a la so chan ')
else
write('a la so le ');
readln;
end.
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a='); readln(a);
if a mod 2=0 then writeln(a,' la so chan')
else writeln(a,' la so le');
if a=0 then writeln(a,' la so 0');
readln;
end.
#include <iostream>
using namespace std;
typedef long long ll;
const int MAXN = 1e7 + 1;
bool prime[MAXN];
void sieve(){
prime[0] = prime[1] = true;
for(int i = 2; 1LL * i * i < MAXN; ++i){
if(!prime[i]){
for(int j = i * i; j < MAXN; j += i){
prime[j] = true;
}
}
}
}
int main() {
ios_base::sync_with_stdio(false);
cin.tie(NULL);
int K;
cin >> K;
sieve();
while(K--){
int N;
cin >> N;
if(!prime[N]){
cout << "YES\n";
}
else{
cout << "NO\n";
}
}
return 0;
}
uses crt;
var x,n,d,i:longint;
st,st1:string;
a:integer;
{----------------------chuong-trinh-con-tim-ucln---------------------}
function ucln(a,b:longint):longint;
var t:longint;
begin
t:=b mod a;
while t<>0 do
begin
t:=a mod b;
a:=b;
b:=t;
end;
ucln := a;
end;
{-------------------chuong-trinh-chinh-----------------}
begin
clrscr;
write('nhap x='); readln(x);
str(x,st);
d:=length(st);
st1:='';
for i:=d downto 1 do
st1:=st1+st[i];
val(st1,n,a);
if ucln(x,n)=1 then writeln('Phai')
else writeln('khong phai');
readln;
end.
uses crt;
var n,d,kt,i,b:integer;
st:string;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
str(n,st);
d:=length(st);
kt:=0;
for i:=1 to d do
val(st[i],a[i],b);
for i:=1 to d do
if a[i]>1 then
begin
kt:=1;
writeln('ban da nhap sai, yeu cau ban nhap lai');
end;
if kt=0 then
begin
if n mod 3=0 then writeln('thoa man')
else writeln('khong thoa man');
end;
readln;
end.
uses crt; var a:integer; begin clrscr; readln(a); if a mod 2=0 then write('la so chan') else write('la so le'); readln; end.