<span> Линия
проходит через центр тяжести выборочных данных,
то есть выполняется равенство:
y=b1+sum(bi·xi)</span>
1. Не знаю, как совместить стороны и диагонали в одном решении, сделал нахождение по диагоналям.
var d1, d2, S: real;
begin
write('Введите диагонали d1 и d2');
readln(d1, d2);
if(d1>0) and (d2>0) then
begin
S:=(d1*d2)/2;
writeln('Площадь равна: ', S)
end
else
writeln('Условия неверны!')
<span>end.
Чтобы написать, достаточно знать основы паскаля. Если есть вопросы к какой-либо строке - напиши.
2. </span><span>16*sqr(sqr(x))-(sqrt(x))</span>
Var
A:integer;
Begin
WriteLn('Введите трёзхначное число');
ReadLn(A);
WriteLn(A mod 10, (A div 10) mod 10, A div 100);
End.
АЦП--аналого-цифровой преобразователь. Применяется для
превращения аналогового (непрерывного) сигнала (звук, изображение, и т п) в цифровой код.
Нужен для того, чтобы цифровое устройство, например ПК, могло бы распознать аналоговую информацию.
Для компа или для человека?