194-11000010 в двоичную
194- С2 в шестнадцатиричную
194- 302 в восьмиричной
194 был в десятичной с/с
1) 12(x)=9(10)
1*x^1+2*x^0=9
x=9-2
x=7
12(7)=9(10)
2) 23(х) = 15(10)
2*х^1+3*x^0=15
2x=15-3
2x=12
x=12/2=6;
23(6) = 15(10)
3) 101(x)=17(10)
1*x^2+0*x^1+1*x^0=17
x^2=17-1
x^2=16
x=4
101(4)=17(10)
4) 15(x)=9(10)
1*x^1+5*x^0=9
x=9-5
x=4
т.к. в алфавит 4сс не входит цифра 5 ({0,1,2,3}), то это число не подходит => уравнение не имеет решения.
А) 30<span>0.5
б) </span>42322.125<span>
в) </span>10110110<span>0.1</span>
Program sagen_metr;
var i: integer;
a: real;
begin
for i:=1 to 10 do
begin
a:=i*2.1366;
writeln (i,' сажень =',a,' м');
end;
end.
program fut_metr;
var i: integer;
a: real;
begin
for i:=1 to 10 do
begin
a:=i*0.3048;
writeln (i,' фут =',a,' м');
end;
end.
program drahm_gram;
var i: integer;
a: real;
begin
for i:=1 to 10 do
begin
a:=i*3.7325;
writeln (i,' драхм =',a,' г');
end;
end.
program unziy_gram;
var i: integer;
a: real;
begin
for i:=1 to 10 do
begin
a:=i*29.86;
writeln (i,' унция =',a,' г');
end;
end.
//Pascal ABC.NET 3.1 сборка 1256
Var
s:string;
a,b:real;
begin
readln(s);
a:=strtofloat(copy(s,1,pos('X',s)-1));
b:=strtofloat(copy(s,pos('=',s)+1,length(s)-pos('=',s)));
if (a=0) and (b=0) then
begin
writeln('X-любое действительное число');
exit;
end
else
if a=0 then
begin
writeln('Нет корней');
exit;
end;
writeln(b/a);
end.
Пример ввода:
-0.1X=10
Пример вывода:
-100