Як отримати посилання для заповнення форми?

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.

program w7w7;

var a: real;

begin

readln (a);

if a< 0 then writeln ('otritsatelnoe chislo');

if a> 0 then  writeln ('pologitelnoe chislo');

end.

а необходимо

б достаточно

в необходимо

г достаточно

д необходимо и достаточно

пусть наше число записывается в виде abc. тогда в системе счисления с основанием x числа abc и abcabc выражаются следующим образом:

 

abc = ax^2 + bx +c (1)

abcabc = ax^5 + bx^4 + cx^3 + ax^2 + bx + c = x^3(ax^2 + bx + c) + (ax^2 + bx + c) = (x^3 + 1)(ax^2 + bx + c) (2)

 

из условия следует, что (2) должно равняться (1), умноженному на 4097:

 

(x^3 + 1)(ax^2 + bx + c) = 4097*(ax^2 + bx +c) => х^3 = 4096 => х = 16

 

ответ: основание системы счисления равно 16 (т.е. это шестнадцатиричная система счисления).