Program a1; var a,b,c,x,x1,x2,d:real; begin write('Введите а '); read(a); write('Введите b '); read(b); write('Введите c '); read(c); begin d:=sqr(b)-4*a*c; if d<0 then begin write('Нет корней'); end else begin if d=0 then begin x:=-b/(2*a); write('x=' , x); end else begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); write('x1=',x1,'x2=',x2); end; end; end; end.
1) нужно разделить исходный код на 3 части 001 110 100 с основанием 2 И заменяем каждую группу на: 000-0, 001-1, 010-2, 011-3, 100-4, 101-5, 110-6, 111-7 Получается 001 110 100 с основанием 2 = 164 с основанием 8
2) для перевода в 10ричную систму нужно умножить разряд числа на соответствующую степень разряда 1110100 = 2^6*1+2^5*1+2^4*1+2^3*0+2^2*1+2^1*0+2^0*0=64+32+16+0+4+0+0=116
3)нужно разделить исходный код на группы по 4 разряда 0111 0100 изменяем каждую группу на: 0000-0, 0001-1, 0010-2, 0011-3, 0100-4, 0101-5, 0110-6, 0111-7, 1000-8, 1001-9, 1010-A, 1011-B, 1100-C, 1101-D, 1110-E, 1111-F. Получается 0111 0100 с основанием 2 = 74 с основанием 16
Не пойму, где это может понадобиться, но 3762194662274677225006147833619028325244330646204236432925139720030670885330519044445501804761927745268763736929034118016031519410956059710016491867886889157890211484313592791062569915129529790346983079610400317269003975512764853909825684309294001486918614927217865484171497622917064676132001029225523861302285726809602736311578770958185727882065830756366057561021042715214545162477118465368433226000538225835881149829186249682400183653494069108786491864970103748052744856652666373379197565574074550935728305785527534076832933033391949562148135756886265861748671407745362911914163091988879273202451394592768
var a,b,c,x,x1,x2,d:real;
begin
write('Введите а '); read(a);
write('Введите b '); read(b);
write('Введите c '); read(c);
begin
d:=sqr(b)-4*a*c;
if d<0 then
begin
write('Нет корней');
end
else
begin
if d=0 then
begin
x:=-b/(2*a);
write('x=' , x);
end
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write('x1=',x1,'x2=',x2);
end;
end;
end;
end.