program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.
Ответ дал: Гость
a = sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
b = sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2));
c = sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3));
writeln("периметр = ",a+b+c);
s = {формула герона}
Ответ дал: Гость
наверняка двоичные числа надо только определить где ноль а где один
Популярные вопросы