Вы ввели число: 17318 в восьмеричной системе счисления и хотите перевести его в двоичную.
Для этого переведем его сначала в десятичную вот так :
17318 = 1∙83+7∙82+3∙81+1∙80 = 512+448+24+1 = 98510
Получилось: 98510
Переведем 98510 в двоичную систему вот так:
Целая часть числа находится делением на основание новой
9852-98449221-49224620-24612320-1226121-603021-301520-14721-6321-211
Получилось:98510 = 11110110012
Результат перевода:
17318 = 11110110012
Uses crt;const h=100;var a: array [1..h,1..h] of integer; n,x,y,max: integer;
begin write('Длина матрицы= '); readln(n); // Enter for x:=1 to n do for y:=1 to n do begin write('a[',x,',',y,']= '); readln(a[x,y]); end; // max:=a[1,1]; while x<>n do begin if a[x,x] > max then begin max:=a[x,x]; y:=x; end; inc(x); end; writeln('Максимальный элемент равен ',max,'.Его координаты (',y,';',y,').'); <span>end.</span>
//PascalABC.Net 3.2
begin
var a: array of integer;
setLength (a, readinteger('Введите размерность массива: '));
var count:=0;
for var i:=0 to length(a)-1 do a[i]:=readinteger ('Введите элемент: ');
for var i:=1 to length(a)-1 do if (a[i-1]*a[i])<0 then count+=1;
write ('Кол-во раз: ', count);
end.
Нажмите (windows+R) и ведите программу и нажмите выполнить и всё
4.5674865371Е-05 = 0,000045674865371
2.3456000Е+07 = 23456000
-4.5600Е+04 = -45600