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

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

Program Turashova_Anna;

Const  V: String = '01';  
Function DecToN(A: Longint; D: Byte) : String; 
Begin  If A > D - 1  
then DecToN := DecToN(A div D, D) + V[(A mod D) + 1] 
else DecToN := V [A + 1]; 
end;    

Function NToDec(A: String; D: Byte): Longint;   
Begin   
If Length(a) > 0    
then NToDec := Pos(A [Length(A)], V) - 1 + D * NToDec(Copy (A, 1, Length(A) - 1), D)   
else NToDec := 0;   
end;

Var F: String;     
Begin     
Write('Входной файл Input.txt: '); Readln(F); 
If NToDec(F,2)      
mod 7 = 0      
then Writeln('Выходной файл Output.txt: 0',DecToN(NToDec(F,2) div 7,2))      
else Writeln('Выходной файл Output.txt: 0');     
end.

#include <iostream>
#include <cmath>
using namespace std;
int main()
{
    setlocale(LC_ALL, "Russian");
    double x,y,z;
    cout << "Введите 3 числа через пробел: ";
    cin >> x >> y >> z;
    if (x<0)
    {
       x=pow(x,2);
    }
    else if (x>0)
    {
        x=pow(x,3);
    }
    if (y<0)
    {
       y=pow(y,2);
    }
    else if (y>0)
    {
        y=pow(y,3);
    }
    if (z<0)
    {
       z=pow(z,2);
    }
    else if (z>0)
    {
        z=pow(z,3);
    }
    cout << "Вывод: " << x << " " << y << " " << z << endl;
    return 0;
}