Что бы перевести из 10-но с.с в двоичную,необходимо данное числа делить на основание переводимой с.с (т.е на 2),до тех пор пока частное не станет меньше или равное остатка! потом переписываем ответ с последнего частного и всех последующих остатков(т.е с конца) (...) - системы счисления, пишется внизу 1995 (10) = 11111001011 (2) 1997 (10) = 11111001101 (2)
Var r1, r2, x1, y1, x2, y2, x3, y3, x4, y4 :real; begin read(x1,y1,x2,y2,x3,y3,x4,y4); if x1>x2 then r1:=(x1-x2)*(x1-x2) else r1:=(x2-x1)*(x2-x1); if y1>y2 then r1+=(y1-y2)*(y1-y2) else r1+=(y2-y1)*(y2-y1); if x3>x4 then r2:=(x3-x4)*(x3-x4) else r2:=(x4-x3)*(x4-x3); if y3>y4 then r2+=(y3-y4)*(y3-y4) else r2+=(y4-y3)*(y4-y3); if r1>r2 then writeln('Первый длинней второго') else if r1=r2 then writeln('Они равны') else writeln('Второй длинней первого'); end.
Const n=20; var a: array[1..n] of integer; i, max, imax, min, imin : integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(101)-50; write(a[i],' '); end; writeln; max:=a[1]; imax:=1; min:=a[1]; imin:=1; for i:=2 to n do begin if a[i] > max then begin max:=a[i]; imax:=i; end; if a[i] < min then begin min:=a[i]; imin:=i; end; end; writeln('max=',max,' min=',min); a[imax]:=min; a[imin]:=max; writeln('Измененный массив:'); for i:=1 to n do write(a[i],' '); writeln; end.
(...) - системы счисления, пишется внизу
1995 (10) = 11111001011 (2)
1997 (10) = 11111001101 (2)