* Xác định bài toán :

Input : số thực x

Output : số thực x là số âm hoặc số dương hoặc không âm không dương

* Mô tả thuật toán :

- Bước 1 : nhập số thực x

- Bước 2 : nếu x > 0 thì in ra màn hình x là số dương

- Bước 3 : nếu x < o thì in ra màn hình x là số âm

- Bước 4 : nếu x = 0 thì in ra màn hình x là số không âm không dương

- Bươc 5 : kết thúc

Inp:nhập n

Out: n là âm hay dương

Thuật toán:

B1:nhập n

B2:nếu n mod 2 =0 thì n là số chẵn, còn ko thì là số lẻ

B3:Xuất KQ ra màn hình

B4: kết thúc

Vt chg trình:

uses crt;

var n:integer;

begin

write('nhap n:');readln(n);

if (n mod 2)=0 then writeln(' n la so chan') else writeln('n la so le');

readln;

end.