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.
uses crt;
var a,b,c,max:integer;
begin
clrscr;
write('nhap ba so:');readln(a,b,c);
if a mod 2=0 then writeln(a,' la so chan')
else writeln(a,'la so le);
if b mod 2=0 then writeln(b,'la so chan')
else writeln(b,'la so le');
if c mod 2=0 then writeln(c,'la so chan')
else writeln(c,'la so le');
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln('so lon nhat trong ba so la:',max);
readln
end.
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,dem1,dem2;
int main()
{
cin>>n;
dem1=0;
dem2=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) dem1++;
else dem2++;
}
cout<<"So so chan la: "<<dem1<<endl;
cout<<"So so le la: "<<dem2;
return 0;
}
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a='); readln(a);
if a<0 then writeln(a,' la so am')
else if a>0 then writeln(a,' la so duong')
else writeln(a,' khong la so am cung khong la so duong');
readln;
end.
var A: integer;
begin
write('Nhap vao mot so A='); readln(A);
if A>0 then write('So A la so nguyen duong');
if A<0 then write('So A la so nguyen am');
If A=0 then write('So A khong la so nguyen am va khong la so nguyen duong');
readln;
end.
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a='); readln(a);
if (a mod 3=0) and (a mod 5=0) then writeln(a,' dong thoi chia het cho 3 va 5')
else writeln('Khong thoa dieu kien');
readln;
end.
#include <bits/stdc++.h>
using namespace std;
int a;
int main()
{
cin>>a;
if (a>10) cout<<"ban nhap so lon hon 10";
else cout<<"ban nhap so nho hon 10";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long a;
int main()
{
cin>>a;
if (a%2==0) cout<<a<<" la so chan";
else cout<<a<<" la so le";
return 0;
}