Задать вопрос
22 ноября, 21:30

В какой системе счисления 16324 есть точный квадрат 125?.

+2
Ответы (1)
  1. 22 ноября, 22:47
    0
    Var n, m, osn: integer;

    function nmbdec (var n, osn: integer) : integer;

    var nmb, l, s, k: integer;

    begin

    nmb:=0; s:=0;

    k:=n; l:=1;

    while k>0 do

    begin

    s:=k mod 10;

    k:=k div 10;

    nmb:=nmb+l*s;

    l:=l*osn;

    end;

    Result:=nmb;

    end;

    { конец функции}

    begin

    write ('число: ') ;

    readln (n) ;

    write ('квадрат какого числа: ') ;

    readln (m) ;

    osn:=10;

    while osn>=2 do

    begin

    osn:=osn-1;

    if nmbdec (n, osn) = sqr (nmbdec (m, osn)) then

    begin

    writeln ('основание системы = ', osn) ;

    break;

    end;

    end;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «В какой системе счисления 16324 есть точный квадрат 125?. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы