//PascalABC.NET 3.2 сборка 1318
Var
x1,x2,y1,y2:integer;
a:real;
begin
readln(x1,y1,x2,y2);
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln('d=',a*sqrt(2));
writeln('P=',a*4);
writeln('S=',sqr(a));
end.
Пример ввода:
2 2
2 3
Пример вывода:
d=1.4142135623731
P=4
S=1
Картинка с ответами в приложении
П
ы с
л о
е к б
с е а
о к к
с о с т а в
с у о
и ч л
н а к
а
1)машина собирающая грязь
2)подруга ёлки
3)синоним слова "маффин"(булочка)
4)хмурое облако
5)друг человека
6)дикая собака
Только 112 и 444, другие не подходят, вродь