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 :

uses crt;

var a, b, c, min : integer;

begin

clrscr;

write('Nhap ba so a, b, c : '); readln(a, b, c);

min := c;

if b < min then min := b;

if a < min then min := a;

write('So nho nhat : ', min);

readln

end.

Bài 2 :

uses crt;

var s, t : longint;

begin

clrscr;

write('Nhap so dien tieu thu : '); readln(s);

if s <= 100 then t := 500 * s

else t := 100 * 500 + (s - 100) * 1000;

writeln('Tien phai tra : ', t);

readln

end.

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.