<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var (x1,y1):=ReadReal2('Координаты 1-й точки:'); var (x2,y2):=ReadReal2('Координаты 2-й точки:'); var a:=Abs(x2-x1); // считаем, что координаты указаны верно var d:=a*Sqrt(2); var (xc,yc):=((x2+x1)/2,(y2+y1)/2); Writeln('Длина стороны ',a,', диагональ ',d); Writeln('Координаты центра пересечения диагоналей: ',xc,' ',yc) end.
<u>Пример</u> Координаты 1-й точки: -3 3.5 Координаты 2-й точки: 4 -3.5 Длина стороны 7, диагональ 9.89949493661167 Координаты центра пересечения диагоналей: 0.5 0
Var n : Integer; f : Boolean; Begin Write('Введите четырёхзначное число '); Readln(n); f:=False; While (n>0) do Begin f:=f or ((n mod 10)=3); n:=n div 10; end; if f then writeln('Тройка есть') else writeln('Троек нет'); End.