Program abc; var a, b, c, d, h, s, p: real; begin writeln('Введите 3 стороны треугольника'); readln(a); readln(b); readln(c); if c > a + b then writeln('Ошибка! Одна сторона не может быть больше суммы двух других, введите третью сторону ещё раз или перезапустите программу и введите верные данные'); if c > a + b then readln(c); if (a > b) and (a > c) then d := a else if (b > c) then d := b else d := c; p := (a + b + c) / 2; s := sqrt(p * (p - a) * (p - b) * (p - c)); h := 2 * s / d; writeln('Высота равна - '+h);end.
Для передачи сигналов компьютер использует простой двоичный код. В мозге человека работают множество нейронов, которые обмениваются разнообразными сигналами, меняющимися в зависимости от обстоятельств.В компьютере есть специальное устройство, в котором хранятся данные. В мозге человека нет конкретного участка, отвечающего за память, – и запоминание, и распознавание свойственно всем нейронам.Мозг человека, в отличие от компьютера, обладает огромной компенсаторной он может работать даже при серьезных повреждениях.Мозг ищет информацию по содержанию и ассоциациям, компьютер – по определенному адресу. Мозг работает с образами, а компьютер – с символами.Мозгу человека свойственны творческая активность, жажда знаний, интуиция и воображение.Возможности мозга человека безграничны, в то время как компьютерный «мозг» зависит от заложенных в него параметров.cheloveka-ot-kompyutera/
var a, b, c, d, h, s, p: real;
begin
writeln('Введите 3 стороны треугольника');
readln(a);
readln(b);
readln(c);
if c > a + b then writeln('Ошибка! Одна сторона не может быть больше суммы двух других, введите третью сторону ещё раз или перезапустите программу и введите верные данные');
if c > a + b then readln(c);
if (a > b) and (a > c) then d := a else if (b > c) then d := b else d := c;
p := (a + b + c) / 2;
s := sqrt(p * (p - a) * (p - b) * (p - c));
h := 2 * s / d;
writeln('Высота равна - '+h);end.