Tại sao mình thử chạy CT này nó lại báo là "illegal uses of ":" " vậy ạ?
Sửa ntn?
program tinhtiendien;
uses crt;
var cu,moi,a,b,c,d,tieuthu:longint;
begin
clrscr;
writeln('Nhap chi so cu');readln(cu);
writeln('Nhap chi so moi');readln(moi);
tieuthu:=moi-cu;
if tieuthu=0 then writeln('Khong phai tra tien');
a:=tieuthu*10000;
b:=49*10000+(tieuthu-49)*12000;
c:=49*10000+50*12000+(tieuthu-99)*15000;
d:=49*10000+50*12000+100*15000+(tieuthu-199)*16000;
writeln('Chi so dien tieu thu:',tieuthu);
if (tieuthu>0) and (tieuthu<50) then writeln('Tien dien thang nay la: ',a:1:0,' dong');
if (tieuthu>=50) and (tieuthu<100) then writeln('Tien dien thang nay la: ',b:1:0,' dong');
if (tieuthu>=100) and (tieuthu<200) then writeln('Tien dien thang nay la: ',c:1:0,' dong');
if (tieuthu>=200) then writeln('Tien dien thang nay la: ',d:1:0,' dong');
readln;
end.
Loga
Sinh Học lớp 12
