Câu 4 : Viết chương trình tính số cây cảnh cần trồng xung quanh sân trường biết sân rông a(m), dài b(m) và cứ cách x(m) trồng 1 cây. Với a, b, x nhập từ bàn phím
2 câu trả lời
uses crt;
var a,b,x:longint;
begin
clrscr;
read(a,b,x);
writeln((2 * (a + b)) div x);
readln; readln;
end.
Program baitap;
Uses crt;
Var a,b,x: real;
Begin
Clrscr;
Write('Chieu rong cua san:'); Readln(a);
Write('Chieu dai cua san:'); Readln(b);
Write('Khoang cach cay canh cach nhau:'); Readln(x);
Writeln('So cay canh can trong quanh san:', (2*(a+b)) div m);
Readln
End.