Помогите! Срочно надо! Информатика 9 классЛинейна структура:1) Найти значение выражения...

Question

Помогите! Срочно надо! Информатика 9 класс
Линейна структура:
1) Найти значение выражения y=ax^2+bx+c
2) Вычислить площади треугольника, прямоугольника, ромба.
3) Найти среднее арифметическое трёх чисел.

Answer 1

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.

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