Question

Помогите пожалуйста написать программу в паскаль для расчёта необходимого количества краски для покраски гаража. Гараж имеет форму параллелепипеда. Красят все наружные поверхности (их 5). Программа должна спрашивать длину, ширину, высоту и выводить на экран количество краски в литрах. Расход краски: 0.2 литра на кв. метр.

Answer 1

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