Question

Viết chương trình nhập số bông hoa (HOA) từ bàn phím, hãy cho biết có bao nhiêu bó (BO) và bao nhiêu bông lẻ (BL), biết mỗi bó có 12 bông

Mong mọi người giúp em ạ =(((

Answer 1

Program hotrotinhoc;

var hoa,bo,bl : integer;

begin

write('Nhap so bong hoa :',hoa);

bo:=hoa div 12;

bl:=hoa mod 12;

writeln('Co ',bo,' bo hoa');

write('Co ',bl,' bong hoa le');

readln

end.