B1:

uses crt;

var a,b,c,d:integer;

begin

write('nhap quang duong:');readln(a);

write('nhap don gia:');readln(b);

if a<=10 then c:=5000 else c:=8000;

d:=a*b+c;

writeln('so tien can thanh toan la:',d);

readln;

end.

B2:

uses crt;

var a,b,c,d,e:integer;

       f:real;

begin

write('nhap diem toan:');readln(a);

write('nhap diem ly:');readln(b);

write('nhap diem hoa:');readln(c);

write('nhap diem van:');readln(d);

write('nhap diem ngoai ngu:');readln(e);

f:=(a+b+c+d+e)/5;

if f>=8 then writeln('Bn la hsg') else writeln('Bn la hs kha');

readln;

end.

P/S: cái chỗ mk bôi đen, in nghiêng và gạch chân là do mk ko bt đề bảo là hs gì nên mk cho là hs khá nhé! Mk ko nhìn đc nếu DTB<8 thì là hs j cả

Câu 1:

soluong = int(input("nhập số lượng"))
dongia = int(input("Nhập đơn giá"))
phidichvu = int(input("nhập phí dịch vụ"))
print( soluong * dongia + phidichvu)
if ( soluong * dongia + phidichvu,50000 * 10):
        print("số quãng đường là ")
elif (soluong * dongia + phidichvu,80000 * 10):
        print("số quãng đường là")
Câu 2:

toan = float(input("Nhập điểm toán"))
van = float(input("nhập điểm văn"))
anh = float(input("nhập điểm anh"))
li = float(input("nhập điểm lí"))
tin = float(input("nhập điểm tin"))
tb =  toan + van + anh + li + tin /3
print( toan + van + anh + li + tin /3)
if (toan + van + anh + li + tin > 8):
        print("học sinh giỏi")
elif (toan + van + anh + li + tin < 8):
        print("bạn là học sinh khá")