Составьте программу Найти площадь прямоугольника если S=1/2 a*b

Question

Составьте программу
Найти площадь прямоугольника если S=1/2 a*b

Comments

Вы уверены, что это формула площади ПРЯМОУГОЛЬНИКА?

Answer 1

Var a,b,s:real;
begin
write ('Введите длину: ');
readln (a);
write ('Введите ширину: ');
readln (b);
s:=a*b;
writeln ('Площадь = ',s);
end.

---

Comments

Не следовало отвечать на этот вопрос, пока окончательно не ясно, то ли в формуле ошибка, то ли в тексте и нужна площадь ТРЕУГОЛЬНИКА