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.

19 tháng 10 2021

#include <bits/stdc++.h>
using namespace std;
int main() {
int a, b, c, d, e, f, g, h, i, j;
cin >> a >> b >> c >> d >> e >> f >> g >> h >> i >> j;
if(a%2==0)
    cout << "Vui long thu lai" << endl;
else if(b%2==0)
    cout << "Vui long thu lai" << endl;
else if(c%2==0)
    cout << "Vui long thu lai" << endl;
else if(c%2==0)
    cout << "Vui long thu lai" << endl;
else if(d%2==0)
    cout << "Vui long thu lai" << endl;
else if(e%2==0)
    cout << "Vui long thu lai" << endl;
else if(f%2==0)
    cout << "Vui long thu lai" << endl;
else if(g%2==0)
    cout << "Vui long thu lai" << endl;
else if(h%2==0)
    cout << "Vui long thu lai" << endl;
else if(i%2==0)
    cout << "Vui long thu lai" << endl;
else if(j%2==0)
    cout << "Vui long thu lai" << endl;
else
    cout << a << " " << b << " " << c << " " << d << " " << e << " " << f << " " << g << " " << h << " " << i << " " << j << endl;
return 0;
}

Chúc bn học tốt! (Mk định dùng kiểu mảnh nhưng nó bị lỗi nên mk dùng cách này, nó hơi dài mong bn thông cảm!)

13 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

int main()

{

int i,a;

for (i=1; i<=10; i++)

{

do 

{

cin>>a;

if (a%2==0) cout<<"Nhap lai";

} while (a%2!=0);

}

return 0;

}

18 tháng 12 2022

Var a:integer;
Begin
Writeln('nhap mot so nguyen: '); Readln(a);
If a mod 2 = 0 then writeln(a,' la so chan')
        else writeln(a,' la so le');
End.

11 tháng 1 2022

TK:

uses crt;
var n: longint;
begin
clrscr;
    readln(n);
    if n mod 2 = 0 then writeln('Chan') else writeln('Le');
readln;
end.

11 tháng 1 2022

#include<bits/stdc++.h>

using namespace std;

long long N;

int main()

{
cin>>N;

if(N%2==0) cout<<N<<" là số chẵn";

if(N%2!=0) cout<<N<<" là số lẻ";

}

7 tháng 12 2021

mình chưa hiểu rõ đề lắm nên mình sẽ làm tạm như thế này còn nếu bạn muốn kiểu khác thì cứ bình luận để mình làm lại.

câu 1 :

#include<iostream>

using namespace std;

int main() {

long long a;

cout << "giá trị của a: "; cin >> a;

if (a % 2 != 0 && a % 5 == 0) {

cout << "a là một số lẻ chia hết cho 5"

} else {

cout << "a không phải là một số lẻ chia hết cho 5";

}

return 0;

}

câu 2 :

#include<iostream>

using namespace std;

int main() {
int a;

cout << "giá trị của a là: "; cin >> a;

if (a % 2 == 0 && a % 5 == 0) {

cout << "a là một số chẵn chia hết cho 5";

} else {
cout << "a không phải là một số chẵn chia hết cho 5";

}

return 0;

}

(Mình viết ở ngôn ngữ C++)

1 tháng 5 2023

program PrintEvenOdd;

var
  num, even, odd, i: Integer;

begin
  even := 0;
  odd := 0;
  for i := 1 to 5 do
  begin
    writeln('Nhap so thu ', i, ': ');
    readln(num);
   
    if num mod 2 = 0 then
      even := even + 1 
    else
      odd := odd + 1;
  end;
  writeln('Tong chan: ', even);
  writeln('Tong le: ', odd);
end.

1 tháng 5 2023

Var a:array[1..5] of integer;

i:integer;

Begin

For i:=1 to 5 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Writeln('Cac so chan la ');

For i:=1 to 5 do

If a[i] mod 2 = 0 then write(a[i]:8);

Writeln;

Write('Cac so le la ');

For i:=1 to 5 do

If a[i] mod 2 <> 0 then write(a[i]:8);

Readln

End.

18 tháng 12 2020

var a:longint;

begin

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 write(a,' la so duong');

if a < 0 then write(a,' la so am');

if a = 0 then write(a,' khong am cung khong duong');

readln;

end.

uses crt;

var a,b,c:array[1..100]of integer;

i,n,dem,dem1:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

dem1:=0;

for i:=1 to n do 

  begin

if a[i] mod 2=0 then 

begin

inc(dem);

b[dem]:=a[i];

end

else begin

ic(dem1);

c[dem1]:=a[i];

end;

end;

writeln('Co ',dem,' so chan');

writeln('Co ',dem1,' so le');

if dem>0 then 

begin

write('Cac so chan la: ');

for i:=1 to dem do 

  write(b[i]:4);

end;

if dem1>0 then 

  begin

write('Cac so le la: ');

for i:=1 to dem1 do 

  write(c[i]:4);

end;

readln;

end.