Преобразуйте следующие двоичные числа в восьмеричные:
111011,10100 = Ответ: 73.5
Преобразуйте следующие двоичные числа в шестнадцатеричные: 1100111001101,1000000001 = Ответ: 79CD.804
Преобразуйте следующие восьмеричные числа в двоичные:
1222,372 = Ответ: 1010010010.01111101
//PascalABC.Net 3.2
begin
var x1:=readreal ('x1 ='); var y1:=readreal ('y1 =');
var x2:=readreal ('x2 ='); var y2:=readreal ('y2 =');
if (sqr(x1)+sqr(y1))=(sqr(x2)+sqr(y2)) then write ('Равноудалены') else
if (sqr(x1)+sqr(y1))<(sqr(x2)+sqr(y2)) then write ('Первая') else write ('Вторая');
end.
К 1 под а)
Ко 2 под е)
К 3 под а)
Это слово называется "устройства ввода"
Var a,b:integer;
begin
read(a);
b:= a mod 10;
if b=0 then writeln('Ноль') else
if b=1 then writeln('Один') else
if b=2 then writeln('Два') else
if b=3 then writeln('Три') else
if b=4 then writeln('Четыре') else
if b=5 then writeln('Пять') else
if b=6 then writeln('Шесть') else
if b=7 then writeln('Семь') else
if b=8 then writeln('Восемь') else
writeln('Девять');
<span>end.</span>