Question

Решите в программе паскаль

Answer 1

program parallel;

var a,b,c,v,s:real;

writeln('Введите A');

readln(a);

writeln('Введите B');

readln(b);

writeln('Введите C');

readln(c);

s:=4*(a*c)+2*(b*c);

v:=a*b*c;

writeln('S=',s);

writeln('V=',v);

end.