<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>
Компьютер<span> – </span>это<span> техническая система </span>взаимосвязанных<span> устройств, </span>каждое из которых выполняет свою<span> функцию</span>
Const N = 10;var a: array [1..N] of longint;i,d,j:longint;begin for i:=1 to N do read(a[i]); for j:=1 to 3 do begin d:=a[n]; for i:=N downto 2 do a[i] := a[i-1]; a[1]:=d; end; writeln('После сдвига: '); for i:=1 to N do write(a[i],' '); writeln; end.