Ответы и объяснения

Лучший Ответ!
2013-10-24T15:22:04+04:00
2-ая программа
var a,b,c,y:real;
begin
writeln('Введи a,b,c-массы трех слонов соответственно');
readln(a,b,c);
y:=(a+b+c)/3;
writeln('среднее ',y);
end.

1-ая программа
var x,y:real;
begin
writeln('Введи x');
readln(x);
y:=2*x*sqrt(x+sqrt(x));
writeln('y=',y);
end.