Последним он собрал 10-ое яблоко :-D
1 Офис ворд
2- 3
3) 3
4) процесс <span> придания </span>текст у <span>определенного вида, связанный с определением левой и правой границ </span>текста<span>, абзацного отступа и </span>
var x1, x2, x3, y1, y2, y3: integer;
AB, BC, AC, P: real;
function dlina (x1, y1, x2, y2: integer):real;
begin
dlina :=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
begin
writeln ('Введите координаты точки A');
read (x1,y1);
writeln ('Введите координаты точки B');
read (x2,y2);
writeln ('Введите координаты точки C');
read (x3,y3);
AB:= dlina (x1, y1, x2, y2);
BC:= dlina (x2, y2, x3, y3);
AC:= dlina (x1, y1, x3, y3);
P:=AB+BC+AC;
writeln ('Периметр треугольника равен',' ', P);
end.
Рано, к примеру,больше показателя на ум не приходит
<span>Первая:
</span>
var
x,y,z:real;
begin
readln(x);
y:=x+2.3;
z:=y/1.2;
writeln(x+y+z);
end.
<span>Вторая:
vara,b:real;beginreadln(a);readln(b);writeln('Периметр: ', 2*(a+b));writeln('Площадь: ', a*b);end.
Третья:
varv1,v2,s,t:real;beginreadln(v1);readln(v2);readln(s);readln(t);writeln((v1*t)+(v2*t)+s)end.</span>