Var
R:string;
begin
R:='0,017*100/2=0.85 ом';
writeln(R);
end.
Виталий|Андрей|Павел=(Виталий+Андрей+Павел)-Андрей&Виталий-Андрей&Павел-Виталий&Павел
Виталий=90
Павел=132
Андрей=121
Андрей&Виталий = 50
Андрей&Павел = 91
Виталий&Павел = 51
Виталий|Андрей|Павел = (132+121+90)-50-91-56=146
Ответ: 146
Ответ: 3) 8
У меня получилось так.
Из точки А в точку В (2 км)
Из точки В в точку D (1 км)
Из точки D в точку С (3 км)
Из точки С в точку Е (2 км)
В сумме 8 км.
На паскаль:
var
a: array [1..10] of integer;
max, min, i: integer;
begin
for i := 1 to 10 do
read(a[i]);
max:=-maxint;
min:= maxint;
for i:= 1 to 10 do
if (a[i]>max) then max:=a[i];
for i := 1 to 10 do
if (a[i]<min) then min := a[i];
for i := 1 to 10 do
if (a[i]<0) then a[i] := min else if (a[i]>0) then a[i]:=max;
for i := 1 to 10 do
write(a[i],' ');
readln;
readln;
end.
Program drawFigure;
uses
graph;
var
gD,gR:integer;
procedure drawIt(x,y,lineLong,time:word);
var
ci:byte;
begin
moveTo(x,y);
lineTo(GetX+lineLong,GetY);
for ci:=1 to time do
begin
lineTo(GetX,GetY-lineLong); lineTo(GetX+lineLong,GetY);
lineTo(GetX,GetY+lineLong); lineTo(GetX+lineLong,GetY);
end;
end;
begin
initgraph(gD,gR,'');
drawIt(80,80,50,2);
readln; closeGraph;
<span>end.</span>