0.01010001111010111000010100011110101110000101000<span>111 в двоичной с/c
</span><span><span>0.243656050753412172702436560507534121727024365605078 в восьмеричной с/с</span><span>
</span></span>
А)program m;var s,i:integer;begins:= 0;i:=0;for i := 0 to 5 dos := s + 1;writeln(s,',',i);end.
Ответ: s = 6,i = 5
б)program m;var s,n,i:integer;begins:= 1;n:=1;for i := 2 to n dos := s + 1;writeln(s,',',i,',',n);end.
Ответ: s = 1, i= 2 , n = 1
<u><em>Задание 1</em></u>
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var x:=ReadReal('x-');
if x<-1 then Writeln(x*x+1)
else
if x<2 then Writeln(abs(x+5))
else
if x<5 then Writeln(1/(x-4))
else Writeln(sqrt(x+6*x))
end.
<u><em>Задание 2</em></u>
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var a,b,c:real;
Write('Введите стороны треугольника: ');
Read(a,b,c);
Write('Треугольник ');
if (a=b) and (b=c) then Write('равносторонний')
else begin
if (a=b) or (b=c) or (a=c) then Write('равнобедренный ');
if (a*a+b*b=c*c) or (a*a+c*c=b*b) or
(b*b+c*c=a*a) then Write('прямоугольный')
else Write('непрямоугольный')
end;
Writeln;
var p:=(a+b+c)/2;
Writeln('Площадь равна ',sqrt(p*(p-a)*(p-b)*(p-c)))
end.
В двоичную:
1)<span>18(10) = 10010(2)
</span>2) 7(10)<span> = 111(</span>2)
3) <span>1999(10) = 11111001111(2)
Получаем: 10010.111.</span>11111001111
В восьмиричную:
1) <span>18(10) = 22(8)
</span>2) 7(10)<span> = 7</span>(8)
3) <span>1999(10) = 3717(8)
</span>
Получаем: 22.7.3717
В шестнадцатиричную:
1) <span>18(10) = 12(16)</span>
2) 7(10)<span> = 7(</span>16)
3) 1999(10)<span> = 7CF(</span>16)
Получаем: 12.7.7CF
Держи, всё просто, http://calculatori.ru/perevod-chisel.html