Question

Имеется садовый участок, имеющий форму прямоугольника со сторонами А и В метров.Составьте программу,которая определит сколько досок надо купить, чтобы поставить сплошной забор. Ширина одной доски 10 см.

Answer 1

Var
p, n, a, b:integer;
begin
Write('Введите длину a участка >> '); ReadLn(a);
Write('Введите длину b участка >> '); ReadLn(b);
p := 2*(a+b)*1000;
n := p div 10;
Write('Вам потребуется ', n ,' досок для постройки забора на участке ');
end.