<em>var x1,x2,y1,y2,s:real; </em>
<em>begin </em>
<em>writeln('Введите координаты точки A'); write('X='); </em>
<em>read(x1); </em>
<em>write('Y='); </em>
<em>read(y1); </em>
<em>writeln('Введите координаты точки B'); </em>
<em>write('X='); </em>
<em>read(x2); </em>
<em>write('Y='); </em>
<em>read(y2); </em>
<em>s:=sqrt(sqr(x2-x1)+sqr(y2-y1)); </em>
<em>writeln(s);</em><span><em> </em>
<em>end.</em></span>
Const z = 2.3;var s,d,f,j: real;i:integer;beginj:=0.2;while j < 2.9 dobegins := 1.5*cos(j)*cos(j);writeln(j:4:2 ,s :9:6);j:= j +0.2;end;writeln;j:=0.2;while j < 2.9 dobegins := 1.8*z*j;writeln(j:4:2 ,s :12:6);j:= j +0.2;end;writeln;j:=0.2;while j < 2.9 dobegins := (j-2)*(j-2)+6;writeln(j:4:2 ,s :9:6);j:= j +0.2;end;writeln;j:=0.2;while j < 2.9 dobegins := 3 * sin(j)/cos(j);writeln(j:4:2 ,s :12:6);j:= j +0.2;end; <span>end.</span>
Ответ:
Удаление всей информации с диска