860=1100100 в двоичной
860=35С в шестнадцатиричной
860=1534 в 8чной
Var
s,s1:string;
i,n:integer;
begin
Write('Введите строку: '); Readln(s);
s1:='';
for i:=1 to Length(s) do s1:=s1+s[i]+s[i];
n:=Length(s1);
i:=n-(n mod 4);
while i>=4 do begin
Delete(s1,i,1);
i:=i-4
end;
for i:=Length(s1) downto 1 do Write(s1[i]);
Writeln
end.
Примеры
Введите строку: Слово
оовоолСС
Введите строку: 123456789
99877655433211
3)
После копирования формула изменится на =$D5+F$5
число в B2=54
4) формулу скопировали в ячейку B6 (новая формула =$D4+F$2)