Program Programma;
Uses crt;
var xA,xB,yA,yB,D: real;
Begin clrscr;
write('Введите координаты точки A через пробел: ');
readln(xA,yA);
write('Введите координаты точки B через пробел: ');
readln(xB,yB);
d:=sqrt(sqr(xA-xB)+sqr(yA-yB));
writeln;
write('Длина отрезака AB = ',d:0:3)
End.
Надо просто перевести 12 и 17 систему счисления(двоичную,восьмиричную..)
Var n,a,b,c,d:integer;
begin read(n);
a:=n div 1000;
b:=n div 100 mod 10;
c:=n div 10 mod 10;
d:=n mod 10;
n:=1000*a+100*c+10*b+d;
writeln(n);
<span>end.</span>
Вопросы составишь вот по этой теме на соблюдать дисциплину и порядок, правила техники безопасности и чистоту;занимать рабочие места согласно указаниям преподавателя и не менять их самовольно;заниматься только тем видом деятельности, которую определил преподаватель;немедленно сообщать преподавателю о любых замеченных неисправностях оборудования или неверной работе программного обеспечения;немедленно сообщать преподавателю о любом случае травматизма в кабинете, особенно от электрического тока.