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.