1hãy viết chương trình hoàn chỉnh tính giá trị nhỏ nhất của 3 số tự nhiên a,b,c biết rằng a,b,c được nhập từ bàn phím
2 viết chương trình để tính tiền điện cho mỗi hộ dân với mức giá 100 số đầu tiên phải trả 500 đồng trên mỗi hộ dân từ 101 trở lên tính giá 1000 đồng trên 1số
Bài 1:
Program BTT;
Uses crt;
Var a,b,c,min: longint;
Begin
Clrscr;
Write(‘Nhap a,b,c: ‘); Readln(a,b,c);
min:=a;
If b<min then min:=b;
If c<min then min:=c;
Write(‘GTNN la: ‘,min);
Readln
End.
Bài 2:
Program BTT;
Uses crt;
Var kWh,tt: qword;
Begin
Clrscr;
Write(‘Nhap so kWh: ‘); Readln(kWh);
If kWh<=100 then tt:=kWh*500
Else If kWh>100 then tt:=50000+(kWh-100)*1000;
Write(‘Tien: ‘,tt);
Readln
End.