Помогите пожалуйста написать программу в паскаль для расчёта необходимого количества краски для покраски гаража. Гараж имеет форму параллелепипеда. Красят все наружные поверхности (их 5). Программа должна спрашивать длину, ширину, высоту и выводить на экран количество краски в литрах. Расход краски: 0.2 литра на кв. метр.
More Questions From This User See All
Answers & Comments
program raf105;
var
a,b,c,paint: real;
begin
write('Длина: ');
readln(a);
write('Ширина: ');
readln(b);
write('Высота: ');
readln(c);
paint:= (a*c*2 + b*c*2 + a*b) * 0.2;
writeln('Требуется ',paint,' л. краски');
end.
PascalABC