Function L(x1,y1,x2,y2:real):real;
begin
L:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
var
x1,y1,x2,y2,x3,y3,P:real;
begin
Write('Введите координаты (x,y) вершины A: '); Read(x1,y1);
Write('Введите координаты (x,y) вершины B: '); Read(x2,y2);
Write('Введите координаты (x,y) вершины C: '); Read(x3,y3);
P:=L(x1,y1,x2,y2)+L(x2,y2,x3,y3)+L(x3,y3,x1,y1);
Writeln('Периметр треугольника равен ',P:0:2)
end.
<em><u>Тестовое решение:</u></em>
Введите координаты (x,y) вершины A: -5 1.4
Введите координаты (x,y) вершины B: 3 5.5
Введите координаты (x,y) вершины C: 0 -2
Периметр треугольника равен 23.11
Ответ:
95
Объяснение:
1) Выписываем 8 бит числа N
2) Выполняем инверсию каждого бита числа N - получаем число N'. Заметим, что если сложить N и N', то переполнений в разрядах не будет, так как каждый бит складывался с его инверсией, в результате чего бит результата равен 1. Результатом сложения будет 8-битное число, состоящее из всех 1, то есть 255. Иначе говоря, N+N' = 255, N' = 255-N
3) Прибавим к N' число 1, получим 256-N.
По условию, 256-N > 160. Отсюда N < 96. Максимальное N равно 95.
Program hhh54;
var n: longint;
x: real;
begin
x:=0;
read (n);
while n <> 0 do
begin
x:=x + sqr(n mod 10);
n:=n div 10;
end;
x:=Exp(ln(x)/3);
write (x:0:3);
<span>end.</span>
Надсистемой Земля явл.для атмосферы Земли
Надсистема для Земли:Солнечная система
1) Пуск->Все программы->Стандартные->Проводник
2)Нажатием любой кнопки на клавиатуре или мыши
3)Правой кнопкой мыши по пустому месту, в открывшемся меню выбрать раздел "Создать"->"Создать папку"
4)Эти операции производятся при помощи меню, открывающегося правой кнопкой мыши(возможно еще чем-то).