Question

Viết chương trình về ví dụ 3 (SGK Tin học - 48)

Answer 1

program Tinh_tien;

uses crt

var a,b:integer;

T:real;

begin

clrscr;

writeln('Nhap don gia:',a);readln(a);

writeln('Nhap so luong:',b);readln(b);

T:=a*b;

if T>=100000 then T:=T*0.7 else T:=T*0.9

writeln('So tien phai tra:',T);

readln

end.

Answer 2

program Tinh_tien;

uses crt

var a,b:integer;

T:real;

begin

clrscr;

writeln('Nhap don gia:',a);readln(a);

writeln('Nhap so luong:',b);readln(b);

T:=a*b;

if T>=100000 then T:=T*0.7 else T:=T*0.9

writeln('So tien phai tra:',T);

readln

end.