a) Mô tả thuật toán:

Bước 1: Nhập x

Bước 2: Nếu x>=500000 thì T←x*0.5; ngược lại T←a*0.95

Bước 3: Xuất T và kết thúc

b) Viết chương trình:

Program baitap;

Uses crt;

Var x:longint;

      T:extended;

Begin

Clrscr;

Write('Nhap so tien da thanh toan:');

Readln(x);

If x>=500000 then T:=x*0.5

Else T:=x*0.95;

Writeln('So tien can tra:',T:9:1);

Readln

End.

a) Mô tả thuật toán:

Bước 1: Nhập a

Bước 2: Nếu a>=500000 thì S←a-(a/100*50);ngược lại S←a-(a/100*5)

Bước 3: In S ra màn hình

b) Viết chương trình:

Program baitap;

Uses crt;

Var a:longint;

      S:extended;

Begin

Clrscr;

Write('Nhap so tien goc:'); Readln(a);

If a>=500000 then S:=a-(a/100*50)

Else S:=a-a/100*5);

Writeln('So tien sau khi giam gia:',S:6:2);

Readln

End.