Тебе из будет трудно искать на рабочем столе или в память компьютера, также они будут длинные и название будет показываться не полностью
На паскале :
var x1,x2,x3,y1,y2,y3,ax,bx,ay,by,a,b,p,s:integer;
begin
readln(x1); readln(y1); readln(x2); readln(y2);
x3:=x1; y3:=y2; //координаты 3 точки
ax:=x1-x3; ay:=y1-y3; bx:=x2-x3; by:=y2-y3; //координаты направляющих векторов
a:=sqrt(sqr(ax)+sqr(ay)); //длинна вектора
b:=sqrt(sqr(bx)+sqr(by)); //длинна вектора
p:=2*(a+b); //периметр
s:=a*b; //площадь
writeln(p);
writeln(s);
end.
//PascalABC (версия 3.4.2, сборка 1889 от 04.12.2018)
var
n, m : integer;
begin
writeln('Определение максимального числа последовательности');
writeln('положительных чисел');
writeln;
writeln('Вводите после стрелки числа. Для завершения ввода введите ноль.');
writeln;
m := 0;
repeat
n := ReadlnInteger('-> ');
if n > m then m := n;
until n = 0;
writeln;
writeln('Максимальное число: ', m)
end.
1 : наливаем воду в 4 литровый сосуд
2 : выливаем из 4 в 5
3: набираем еще один 4л сосуд и сливаем из 4 в 5 под завязку
5. Таким образом имеем 3 литра в 4л сосуде
4: Освобождаем 5л сосуд и сливаем в него воду из 4л. Таким
образом имеем пустой 4л сосуд и 3 литра воду в 5л емкости.
5: набираем полный 4л сосуд и сливаем в 5л емкость(в которой
уже 3 литра). В итоге у нас остается 2 литра воды в 4 литровом сосуде.