Помогите пожалуйста написать програму по задаче для Паскаля.
Определить количество сетки (b), которой необходимо загородить сад прямоугольной формы, со сторонами а и b метров и количество минеральных удобрений (d) для сада, если их выход (с) килограмм на метр квадратный.
а:=24
b:=50
c:=2.5
Определить количество сетки (b), которой необходимо загородить сад прямоугольной формы, со сторонами а и b метров и количество минеральных удобрений (d) для сада, если их выход (с) килограмм на метр квадратный.
а:=24
b:=50
c:=2.5
Answers & Comments
Verified answer
Var a,b,s,c,d:real;begin
write('a, b: ');
readln(a,b);
write('c: ');
readln(c);
s:=2*(a+b);
writeln('Количество сетки: ',s:5:1,' м');
d:=a*b*c;
writeln('Количество минеральных удобрений: ',d:5:1,' кг');
end.
Пример:
a, b: 24 50
c: 2.5
Количество сетки: 148.0 м
Количество минеральных удобрений: 3000.0 кг
Или так (без ввода данных):
var a,b,s,c,d:real;
begin
a:=24;
b:=50;
c:=2.5;
s:=2*(a+b);
writeln('Количество сетки: ',s:5:1,' м');
d:=a*b*c;
writeln('Количество минеральных удобрений: ',d:5:1,' кг');
end.
Результат:
Количество сетки: 148.0 м
Количество минеральных удобрений: 3000.0 кг