1.даны 3 числа a, b, c вычислить их средние арифметическое (a+b+c)/3. 2.даны 2 числа a,b вычислить сумму их кубов. сделайте как на фотке !

1)

program z1; var a,b,c,P:real; begin readln(a,b,c); P:=(a+b+c)/3; writeln('P=',P); End.

2)

program z2; var a,b,P:real; begin readln(a,b); P:=a*a*a+b*b*b; writeln('P=',P); End.

1)

program z1;

var a,b,c,P:real;

begin

readln(a,b,c);

P:=(a+b+c)/3;

writeln('P=',P);

End.

2)  

program z2;

var a,b,P:real;

begin

readln(a,b);

P:=a*a*a+b*b*b;

writeln('P=',P);

End.

Объяснение: