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

Ответ:

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.