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;
int main()
{
cin>>n;
if (n%2==0) cout<<"La so chan";
else cout<<"La so le";
return 0;
}
Tham khảo!
program baitap;
uses crt;
var a:integer;
procedure chanle(x:integer);
begin
if ((x mod 2) = 0) then write('So nhap vao la so chan.') else
write('So nhap vao la so le.');
end;
begin
clrscr;
write('Nhap a: ');readln(a);
chanle(a);
readln;
end
1:
uses crt;
var a:integer;
begin
clrscr;
write('a='); readln(a);
if a>0 then writeln(a,' la so duong');
if a<0 then writeln(a,' la so am');
if a=0 then writeln(a,' khong la so duong cung khong la so am');
realdn;
end.
2:
uses crt;
var x:longint;
begin
clrscr;
write('nhap x='); readln(x);
if x mod 2=0 then writeln(x,' la so chan');
if x mod 2=1 then writeln(x,' la so le');
readln;
end.
3:
Program GIAI_PHUONG_TRINH_BAC_NHAT; Uses crt; Var a,b,x: real; Begin Clrscr; Writeln('GIAI PHUONG TRINH BAC NHAT: AX + B=0'); Writeln('------------------------------------------------------------'); Write ('Nhap a= '); readln(a); Write ('Nhap b= '); readln(b); If(a=0) then If(b=0) then Writeln(' Phuong trinh co vo so nghiem') Else writeln(' Phuong tring vo nghiem') Else Writeln('Phuong trinh co nghiem x=',-b/a: 4: 2); Readln End.
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if (a>0) and (b>0) then writeln('Cung duong');
if (a<0) and (b<0) then writeln('Cung am');
if (a>0) and (b<0) then writeln('Duong am');
if (a<0) and (b>0) then writeln('Am duong');
readln;
end.
Câu 2:
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if (a mod 2=0) and (b mod 2=0) then writeln('Cung chan');
if (a mod 2<>0) and (b mod 2<>0) then writeln('Cung le');
if (a mod 2=0) and (b mod 2<>0) then writeln('Chan le');
if (a mod 2<>0) and (b mod 2=0) then writeln('Le chan');
readln;
end.
uses crt;
var n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
readln;
end.
Câu 1
uses
crt;
var a : integer;
begin
clrscr;
write('nhap a ='); readln(a);
if a mod 2 = 0 then writeln('la so chan ') else
writeln('la so le ');
readln;
end.
1:
uses crt;
var n:integer;
begin
clrscr;
write('n='); readln(n);
if n>=0 then begin
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
end
else writeln('vui long nhap so tu nhien');
readln;
end.
2:
uses crt;
var d,r,cv,dt:integer;
begin
clrscr;
write('nhap chieu dai:'); readln(d);
write('nhap chieu rong:'); readln(r);
if (d>0) and (r>0) and (d>=r) then
begin
cv:=(d+r)*2;
dt:=d*r;
writeln('chu vi la: ',cv);
writeln('dien tich la: ',dt);
end
else writeln('vui long nhap lai');
readln;
end.
Đáp án B.
Nhưng là Do nhé, không phải So