Мы получаем информацию из интернета, из общения друг с другом, из музыки, также мы получаем новую информацию из телевизора. Информацию можно получить из книги или другого рукописного или печатного текста. Рисунок также несет информацию. Информация может быть самой разносторонней. Например: новости,факты, знания о чем-либо и т.д.
Расположение как написано: желтый квадрат, зеленый ромб, красный треугольник, синий круг
640 битов вроде бы если если цифры не подводят
Var c,k1,k2,i,min,max: integer;
begin
min:=m[0]; max:=m[0];
for i:=0 to N do begin // тут вот N - размер массива, m - массив
if (m[i]>max) then begin
max:=m[i];
k1:=i
end;
if (m[i]
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
