Преобразуйте следующие двоичные числа в восьмеричные:
111011,10100 = Ответ: 73.5
Преобразуйте следующие двоичные числа в шестнадцатеричные: 1100111001101,1000000001 = Ответ: 79CD.804
Преобразуйте следующие восьмеричные числа в двоичные:
1222,372 = Ответ: 1010010010.01111101
var x: array[1..10] of real;
n: integer;
begin
for n:=1 to 10 do begin
x[n]:=power(3,n)-5;
writeln(x[n]);
end;
end.
Program lr28;
var k,a,b,c,x,z: integer;
d:real;
begin
write('№ equation: ');
readln(k);
writeln('variables:');
readln(x,z,a,b,c);
case k of
1: begin d:=(x-z)/(x+z); writeln(d); end;
2: begin d:=-b/(2*a); writeln(d); end;
3: begin d:=(a*a*a)/abs(x-z); writeln(d); end;
4: begin d:=sqrt(abs(b*b-4*a*c)); writeln(d); end;
else writeln('error');
end;
end.