Những câu hỏi liên quan
TN
Xem chi tiết
H24
26 tháng 9 2021 lúc 11:09

Uses crt;

Var x:integer;

 Begin

         Write('Nhap vao mot so nguyen : ');

         Readln(x);

        If x MOD 2=0 Then

       Writeln('So vua nhap vao la so chan')

       Else

       Writeln('So vua nhap vao la so le');

       Readln;

End.

Bình luận (0)
DV
Xem chi tiết
NT
6 tháng 10 2021 lúc 15:13

Bước 1: Nhập a

Bước 2: Nếu a mod 2=0 thì xuất a là số chẵn

Ngược lại xuất a là số lẻ

Bước 3: Kết thúc

Bình luận (0)
TL
Xem chi tiết
PH
Xem chi tiết
YD
Xem chi tiết
NK
19 tháng 10 2021 lúc 14:23

Hỏi đáp Tin học

Bình luận (0)
NK
19 tháng 10 2021 lúc 14:24

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ình luận (0)
H24
Xem chi tiết
NT
20 tháng 1 2021 lúc 20:13

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.

Bình luận (1)
LM
Xem chi tiết
ML
7 tháng 3 2023 lúc 23:11

Program HOC24;

var a: integer;

begin

write('Nhap a: '); readln(a);

if a mod 2=1 then write(a,' la so le') else write(a,' la so chan');

readln

end.

Bình luận (1)
NT
27 tháng 6 2023 lúc 10:08

lưu ý sd trong python

a= int(input())

if a%2==1:

print(f'{a} la so le')

if a % 2 == 0:

print(f'{a} la so chan')

Bình luận (0)
TB
Xem chi tiết
DL
20 tháng 12 2021 lúc 10:39

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.

Bình luận (0)
TB
20 tháng 12 2021 lúc 10:32

Giúp mik v

Bình luận (0)
N8
Xem chi tiết
LT
29 tháng 12 2021 lúc 7:19

Thuật toán:

B1: Nhập số nguyên n

B2: Nếu n >0 thì in ra màn hình n là số dương; nếu n <0 thì in ra màn hình n là số âm; nếu n = 0 thì in ra màn hình n không dương cũng không âm.

B3. Kết thúc

Chương trình:

uses crt;

var n: integer;

begin

write('Nhap so N: '); readln(n);

if n > 0 then writeln(n,' la so nguyen duong') else if n = 0 then writeln(n,' khong la so am cung khong la so duong') else writeln(n, ' la so nguyen am');

Bình luận (2)