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.

20 tháng 12 2021

program So_chan_hay_le;

uses crt;

var m : integer;

begin

clrscr;

writeln('Nhap so m'); readln(m);

if m mod 2 = 0 then

writeln('Day la so chan')

else writeln('Day la so le');

readln;

end.

20 tháng 12 2021

Giúp mik v

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

Đây là một ví dụ về phương trình kiểm tra số nguyên a là số chẵn hay số lẻ trong Scratch:

 

```scratch

Nhập "a" từ bàn phím

Nếu (a % 2 = 0) thì

    Hiển thị "a là số chẵn"

Ngược lại

    Hiển thị "a là số lẻ"

Kết thúc

```

 

Trong đó, `%` là toán tử chia lấy phần dư, và nếu `a % 2` bằng 0, thì số đó là số chẵn; ngược lại, là số lẻ.

10 tháng 1

when green flag clicked
ask "Nhập số nguyên a:" and wait
set a to ((a) / (2)) * (2)
if (a) = (a) then
  say "Số nguyên a là số chẵn"
else
  say "Số nguyên a là số lẻ"
end

 

10 tháng 5 2023

Câu 58:

Var n:integer;

Begin

Write('n = ');readln(n);

If n mod 2 <> 0 then write(n,' la so le')

Else write(n,' khong la so le');

Readln

End.

10 tháng 5 2023

Câu 61:

Var n:integer;

Begin

Write('n = ');readln(n);

If n mod 2 = 0 then write(n,' la so chan')

Else write(n,' khong la so chan');

Readln

End.

7 tháng 1 2022

giúp mik với
 

Tham khảo

Program Tin_hoc;

Uses Crt;

Var N: Integer;

Begin

        Write('Nhap so nguyen N');

        Readln(N);

        If N>0 then write(' So do la so duong ');

        If N<0 then write(' So do la so am ');

        If N=0 then write(' So do khong la so am va so duong');

        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.