Як виглядатиме у клітинці електронної таблиці запис часу опівдні з точністю до хвилин у форматі Час.

93₁₀ =1011101₂

93 : 2 = 46 (1)

46 : 2 = 23 (0)

23 : 2 = 11 (1)

11 : 2 = 5 (1)

5 : 2 = 2 (1)

2 : 2 = 1 (0)

1 : 2 = 0 (1)

124₁₀ =1111100₂

124 : 2 = 62 (0)

62 : 2 = 31 (0)

31 : 2 = 15 (1)

15 : 2 = 7 (1)

7 : 2 = 3 (1)

3 : 2 = 1 (1)

1 : 2 = 0 (1)

                                                                          нет

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.

если не считать пропущенное равно, то нужна разница квадратов в и а