Viết chương trình hộ mình với ạ
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
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
Program NN;
Uses crt;
Var T,s: qword;
Begin
Clrscr;
Write(‘Nhap tien: ‘); Readln(T);
If T>=100000 then s:=trunc(T*70/100)
Else s:=trunc(T*90/100);
Write(‘S = ‘,s);
Readln
End.
uses crt;
var n:longint;
begin
clrscr;
write(‘Nhap so tien khach hang mua: ‘);readln(n);
if n<0 then write(‘vo nghiem’)
else
begin
if n>=100000 then n:=trunc((n/100)*70)
else n:=trunc((n/100)*90);
write(‘So tien sau khi giam gia: ‘,n);
end;
readln;
end.