Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln((a+b)/2:4:2);
readln;
end.
program GiamGiaTheoSoLuong;
varsoluonghoa: integer;
dongia, thanhtien: real;
begin
write('Nhap so luong hoa: ');
readln(soluonghoa);
write('Nhap don gia: ');
readln(dongia);
thanhtien := soluonghoa * dongia;
if soluonghoa >= 10 then
thanhtien := thanhtien * 0.9
else if soluonghoa >= 5 then
thanhtien := thanhtien * 0.95;
writeln('So luong hoa: ', soluonghoa);
writeln('Don gia: ', dongia:0:2);
writeln('Thanh tien: ', thanhtien:0:2);
readln;
end.
{ đơn giá: a, số lượng: b}
uses crt;
var a,b,s,thanhtoan:integer;
begin
write('nhap gia don hang:');
read(a);
write('nhap so luong hang:');
s:=0;
thanhtoan:=0;
s:=a*b;
if s>100 then thanhtoan:= s*(30/100)
else thanhtoan:= s* (10/100);
write(' so tien can thanh toan la:',' ',thanhtoan);
readln;
end.
uses crt;
var tien:real;
begin
clrscr;
repeat
write('Nhap so tien:'); readln(tien);
until tien>0;
if tien>=100000 then writeln(tien*70/100:4:2)
else writeln(tien*90/10:4:2);
readln;
end.
Dạ cho mình hỏi chỗ này xíu, đoạn "(tien*70/100:4:2)" có chữ 4:2 nghĩa là gì ạ?