Question

viết chương trình nhập một số x từ bàn phím , thông báo ra màn hình nếu là số chẳn ngược lại thông báo số lẻ

Answer 1

program chan_le;

uses crt;

var x: real;

begin

clrscr;

write('Nhap so x:');readln(x);

If x mod 2=0 then writeln(' x la so chan') else writeln('x la so le');

readln

end.

Answer 2

Mình viết thuật toán.

Bước 1. Nhập X

Bước 2. 2.1 Nếu X mod 2 = 1 thì thông báo X là số lẻ

2.2 Thông báo X là số chẵn

Bước 3. Kết thúc thuật toán.

Answer 3

Program chanle;
Uses crt;
Var x: integer;
Begin
clrscr;
write (‘Nhap x : ’); readln (x);
if N mod 2 = 0 then writeln (x, ‘ la so chan’)
else writeln (x, ‘ la so le’);

readln;
End.