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

Ответ

Автор - raf1O5

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.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.