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.

5 tháng 3 2022

Tham khảo

 

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

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

19 tháng 10 2021

Hỏi đáp Tin học

19 tháng 10 2021

Input: số nguyên N

Output: N là chẵn hoặc N là lẻ

- Thuật toán liệt kê:

+ Bước 1: Nhập N

+ Bước 2: Nếu N chia hết cho 2 thì in ra N chẵn và kết thúc thuật toán ngược lại nếu N không chia hết cho 2 thì in ra N lẻ và kết thúc thuật toán

- Thuật toán sơ đồ khối:

 

Hỏi đáp Tin học

 

 

 

 

Bài 1: 

uses crt;

var m,n,i,t:integer;

begin

clrscr;

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

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

t:=0;

for i:=m to n do 

  t:=t+i;

writeln(t);

readln;

end.

2:

uses crt;

var n:integer;

{---------------chuong-trinh-con-kiem-tra-chan-le---------------------}

function ktcl(x:integer):boolean;

begin

if x mod 2=0 then ktcl:=true

else ktcl:=false;

end;

{--------------------chuong-trinh-con-kiem-tra-duong-am-------------------}

fucntion ktda(x:integer):boolean;

begin

if x>0 then ktda:=true

else if x<0 then ktda:=false;

end;

{--------------------chuong-trinh-chinh-------------------------}

begin

clrscr;

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

if ktcl(n)=true then writeln('Day la so chan')

else writeln('Day la so le');

if ktda(n)=true then writeln('Day la so duong')

else writeln('Day la so am');

readln;

end.

Đâ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

 

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.

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.