Перевести число 1)10101010112 в десятичную, 8-ую и 16-ую системы счисления. 2. Перевести числа 123458 - id1432518320200215 от avetik04 15.02.2020 10:24

Question

Информатика: Перевести число 1)10101010112 в десятичную, 8-ую и 16-ую системы счисления. 2. Перевести числа 123458 и 31С116 в двоичную и десятичную системы счисления каждое. 3. Перевести десятичное число 55510 в 2-ую, 8-ую и 16-ую системы. (решение писать обязательно, всего будет 10 новых чисел)​

avetik04 · Accepted Answer

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ReadReal('Введите число a:');
var n:=ReadInteger('Введите показатель степени n:');
if n<=0 then begin
    Writeln('Показатель степени должен быть натуральным числом');
    Exit
    end;
// перевод показателя степени в двоичную систему счисления
var t:=n;
var r:string:='';
while t>=2 do (r,t):=(t mod 2+r,t shr 1);
r:=t+r;
// возведение в степень
var (rr,i):=(a,2);
while i<=r.Length do begin
    rr:=Sqr(rr);
    if r[i]='1' then rr*=a;
    i+=1
    end;
Writeln(a,'^',n,' = ',rr)
end.

Примеры
Введите число a: 3.182
Введите показатель степени n: 11
3.182^11 = 338611.675261463

Введите число a: 2
Введите показатель степени n: 10
2^10 = 1024

MOGZ ответил