Помогите! Срочно надо! Информатика 9 класс

+ 0 -

SpeddiPro

08 дек. 2014 г., 23:27:28 (9 лет назад)

1)
program p1;
var
y,a,b,c,x:real;
begin
readln(a,b,c,x);
y:=((a*sqr(x)) + (b*x) + c);
writeln(y);
end.

3)
program p3;
var
a,b,c:real;
begin
readln(a,b,c);
writeln((a+b+c)/3);
end.

Второй номер.
Для прямоугольника:
program p2;
var
a,b:real;
begin
readln(a,b);
writeln(a*b);
end.
Для треугольника (по формуле Герона):
program p2;
var
a,b,c,p,s:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p * (p-a) * (p-b) * (p-c));
writeln(s);
end.

Насчет ромба не знаю.