Question

Viết chương trình trong Tubo Pascal của các thuật toán sau

- Đọc và số nguyên a, kiểm tra xem a là số chẵn hay số lẻ

- Giảm giá 30% cho khách hàng mua với số tiền T>=100000 và cách 10% cho khách hàng mua với số tiền t<100000

- nếu x>5 thì in giá trị của X ra ngoài màn hình

- Giảm giá 30% cho khách hàng mua với số tiền T>=100000

- Nếu Delta < 0 thì in ra màn hình phương trình vô nghiệm

Answer 1

program CT_dautien;

uses crt;

var a:integer;

begin

clrscr;

writeln('moi nhap so a');readln(a);

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

readln

end.

Answer 2

sử dụng cấu trúc IF <điều kiện> THEN <câu lệnh>