По трем сторонам - формула Герона.
var a,b,c,p:real;
begin
write('Введите стороны: ');
readln(a,b,c);
p := (a + b + c) / 2;
writeln('Площадь равна ', sqrt(p * (p - a) * (p - b) * (p - c)):9:4);
end.
А через основание и высоту (твоя формула):
var a,h:real;
begin
write('Введите длину основания и высоты, проведенной к нему: ');
readln(a, h);
writeln('Площадь равна: ', (a * h) / 2:9:4);
:9:4 -- это такой оператор, который выводит число в формате с фиксированной точкой и 4 знаками после запятой.
Одну из 32 букв можно отгадать (<span>при оптимальной стратегии игры</span>) максимум за log(2)32 = 5 вопросов.
Отгадать слово из 5 букв можно максимум за 5*5 = 25 вопросов.
Координата точки х = 4, у = 0 m = 5, где m размер изображения
Var
x:integer;
begin
for x:=-5 to 5 do Writeln(x:2,x*x+5:4)
end.
<u>Результат</u>
-5 30
-4 21
-3 14
-2 9
-1 6
0 5
1 6
2 9
3 14
4 21
5 30