Написать программу в паскаль для расчёта необходимого - вопрос №8449100 от Чиангл 12.10.2022 19:34

Question

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

Чиангл · Answer

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