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.

14 tháng 12 2017

Program bai1;

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.

14 tháng 12 2017

Thanks.

vui

21 tháng 12 2020

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.

9 tháng 12 2021

program Chanle;

uses crt;

var x: integer;

begin

clrscr;

readln(x)

if (x mod 2 = 0) then write('day la so chan') else write('day la so le');

readln

end.

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.

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++)

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.