Ав¬то¬мат по¬лу¬ча¬ет на вход четырёхзнач¬ное де¬ся¬тич¬ное число. по этому числу стро¬ит¬ся новое число по сле¬ду¬ю¬щим пра¬ви¬лам. 1. вы¬чис¬ля¬ют¬ся два числа — сумма пер¬вой и вто¬рой цифр и сумма тре¬тьей и четвёртой цифр за¬дан¬но¬го числа (сумма двух старших и сумма двух младших разрядов). 2. по¬лу¬чен¬ные два числа за¬пи¬сы¬ва¬ют¬ся друг за дру¬гом в по¬ряд¬ке не¬убы¬ва¬ния (без раз¬де¬ли¬те¬лей). сколь¬ко из чисел могут по¬лу¬чить¬ся в ре¬зуль¬та¬те ра¬бо¬ты ав¬то¬ма¬та. 1915 10 110 1516 1211 316 1519 116 1515
Объяснение:
program treugolnik;
uses crt;
var
x1, y1, x2, y2, x3, y3, p:real;
function dlina(a1,b1, a2,b2:real):real;
begin
dlina:=sqrt(sqr(a1-a2)+sqr(b1-b2));
end;
begin
writeln('Введите координаты 1-ой вершины');
write('x='); readln(x1);
write('y='); readln(y1);
writeln('Введите координаты 2-ой вершины');
write('x='); readln(x2);
write('y='); readln(y2);
writeln('Введите координаты 3-ей вершины');
write('x='); readln(x3);
write('y='); readln(y3);
p:=dlina(x1,y1,x2,y2)+dlina(x1,y1,x3,y3)+dlina(x2,y2,x3,y3);
writeln('Периметр=',p);
end.