<em>// PascalABC.NET 3.2, сборка 1431 от 28.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqReal(3).Max)
end.
<u>Пример</u>
5.2 14 -1.156
14
Writeln предписывает вывести то, что записано у него в
скобках. ReadSeqReal(3) обеспечивает чтение трех чисел вещественного
типа с клавиатуры, а Max находит максимальное из них...
В 2-ой - 11101010
в 8 - ой - 352
в 16 - ой - ЕА
Ответ: 3) 8
У меня получилось так.
Из точки А в точку В (2 км)
Из точки В в точку D (1 км)
Из точки D в точку С (3 км)
Из точки С в точку Е (2 км)
В сумме 8 км.
Function sq(var x1,y1,x2,y2,x3,y3: real):real;
<span>begin
</span><span>// вычисляем площадь с помощью
</span><span>// векторного произведения
</span><span> sq:=abs((x2-x1)*(y3-y1)-(x3-x1)*(y2-y1))/2;
</span><span>end;
</span><span>// основная программа
</span><span>var x1,y1,x2,y2,x3,y3,x4,y4,s:real;
</span><span>begin
</span><span> write('координаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел: ');
</span><span> readln(x1,y1,x2,y2,x3,y3,x4,y4);
</span><span> s:=sq(x1,y1,x2,y2,x3,y3)+sq(x1,y1,x4,y4,x3,y3);
</span><span> writeln('площадь четырехугольника S = ',s);
</span><span>end.
</span>координаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел: 2 2 4 4 7 4 6 2
<span>площадь четырехугольника S = 7
</span>
program noname;
uses crt;
var
x,y:real;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
if (x>1) or (x<-1)or (y>1) or (y<-1) then
writeln('no')
else writeln('yes');
readkey;
end.