Bài 11. 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
2 câu trả lời
uses crt;
var HOA,BO,BL:integer;
begin
clrscr;
write('Nhap so bong hoa: ');readln(HOA);
BO:=HOA div 12;
BL:=HOA mod 12;
writeln('So bo hoa: ',BO);
writeln('So bong le: ',BL);
readln
end.
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
Câu hỏi trong lớp
Xem thêm
