Var a,b:integer;
c:real;
begin
readln(a,b);
if ((a+b) mod 2 = 0) then c:= a*b
else c:= a/b;
writeln(c);
readln();
<span>end. </span>
Double A[3][4];
int i,j;
double min;
for(i = 0; i < 3; i++)
for(j=0;j<4;j++)
cin>>A[i][j];
min=A[0][0];
for(i = 0; i < 3; i++)
for(j=0;j<4;j++)
if(A[i][j] < min) {min=A[i][j];}
cout<<min;
Не забывай про лучший ответ.
Var x1, x2, y1, y2, s: real;
begin
read(x1, y1, x2, y2);
s:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
write(s:0:3);
end.
Ответ:
<em>у</em><em>д</em><em>а</em><em>л</em><em>и</em><em>т</em><em>ь</em>
Объяснение:
<em>н</em><em>а</em><em>з</em><em>н</em><em>а</em><em>ч</em><em>е</em><em>н</em><em>и</em><em>е</em><em> </em><em>клавишы</em><em> </em><em>D</em><em>e</em><em>l</em><em>e</em><em>t</em><em>e</em><em>:</em><em> </em><em>э</em><em>т</em><em>о</em><em> </em><em>озн</em><em>а</em><em>чает</em><em> </em><em>у</em><em>д</em><em>а</em><em>л</em><em>и</em><em>т</em><em>ь</em><em> </em><em>с</em><em> </em><em>а</em><em>н</em><em>г</em><em>л</em><em>и</em><em>й</em><em>с</em><em>к</em><em>о</em><em>г</em><em>о</em><em> </em><em>п</em><em>е</em><em>р</em><em>е</em><em>в</em><em>о</em><em>д</em><em>а</em><em>.</em>