Информатика,, максимум .вычисли количество адресуемых ячеек памяти, если разрядность шины адреса равна 20: n=

пусть х основание системы счисления, тогда:

122х (здесь х должен стоять нижним индексом) = 1*х² + 2*х¹ + 2*х⁰=х²+2х+2 - это десятичная запись исходного числа, значит:

х²+2х+2=65

х²+2х-63=0

д= 4 + 252 = 256

х₁ = (-2-  16)/2 = -9 (не удовлетворяет)

х₂ = (-2 + 16)/2 = 7

ответ. основание системы счисления = 7.

var

  a,b: longint;

begin

  readln(a,b);

  while a> 0 do

  begin

    if a mod 10=b then

  begin

    writeln('est');

    halt;

  end;

  a: =a div 10;

end;

writeln('net');

end.

const alphabet="яабвгдеёжзийклмнопрстуфхцчшщъыьэюя"; var filename: stringprocedure readfile(filename: string); var f: text; s: string; i,k: integer; begin      assign(f,filename);       reset(f);       while not eof (f) do begin { пока не конец файла }            readln (f, s);             for i: = 1 to length(s) do begin              k: =pos(s[i], alphabet);                   if k=1 then k=length(alphabet); {это приколы изза я}                   if k> 1 then s[i]: =alphabet[k-1];         end;             writeln(s);       end;       close(f); end; begin      read(filename);       readfile;       readln; end.

program primer_(число); var (буквы): real или integer;   beginwriteln ('введите что-то'); read (буква); буква: =вычисления; write ('значение выражения=',   буква); end.

p.s. только смотри на знаки, которые я расставила.