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.

Объяснение: