На вход алгоритма подаётся натуральное число N. Алгоритм строит по нему новое число R следующим образом. 1. Строится двоичная запись числа N.

2. К этой записи дописываются ещё два разряда по следующему правилу:

а) если N чётное, то к нему справа приписываются две последние цифры его двоичной записи;

б) если N нечётное, то к нему справа и слева приписывается цифра 1.

Полученная таким образом запись (в ней на два разряда больше, чем в записи исходного числа N) является двоичной записью искомого числа R.

Например, двоичная запись нечётного числа 110012 будет преобразована в 11100112.

Укажите такое наименьшее число R, превышающее 130, которое может являться результатом работы данного алгоритма.
В ответе это число запишите в десятичной системе счисления

//PascalABC.Net
function DelWord(s:string):string;
var
  i,n:integer;
begin
  n:=length(s);
  i:=n;
  repeat
    if i>=1 then Dec(i);
  until s[i]=' ';
  Delete(s,i+1,n-i);
  DelWord:=s
end;

var
  st:string;
begin
  Write('Введите строку: '); Readln(st);
  Writeln('Результат: ',DelWord(st))
end.

Тестовое решение:
Введите строку: А роза упала на лапу Азора
Результат: А роза упала на лапу

//PascalABC.Net
function DescDigits(s:string):boolean;
var
  desc:boolean;
  i,n:integer;
  c1,c2:char;
begin
  n:=length(s);
  desc:=true;
  c1:='A'; { главное, чтобы символ был "старше" любой цифры }
  i:=1;
  repeat
    c2:=s[i];
    if c2 in ['0'..'9'] then
      if c2<c1 then c1:=c2 else desc:=false;
    Inc(i)
  until (i>n) or (not desc);
  DescDigits:=desc
end;

var
  s:string;
begin
  Write('Введите строку: '); Readln(s);
  if DescDigits(s) then Writeln('true') else Writeln('false')
end.

Тестовое решение:
Введите строку: Пример строки с цифрами 98 по убыванию 7 6,5, так4тоже1можно!
true

Вариант первой программы для Borland Pascal 7.01
uses Crt;
function DelWord(s:string):string;
var
  i,n:integer;
begin
  n:=length(s);
  i:=n;
  repeat
    if i>=1 then Dec(i);
  until s[i]=' ';
  Delete(s,i+1,n-i);
  DelWord:=s
end;

var
  st:string;
begin
  ClrScr; 
  Write('Введите строку: '); Readln(st);
  Writeln('Результат: ',DelWord(st));
  ReadKey
end.

1) Дано:
k = 4096 сим.
I = 3.5 Кбайт
Найти N = ?
Решение:
N = 2^i
I = k*i
i = I/k
3.5 Кбайт = 3584 байт = 28672 бит
i = 28672 / 4096 = 7 бит
N = 2^7 = 128 символов

2)
Глубина цвета = 350 Кбайт / (1280 * 320 пикселей) = 350 * 8 * 1024 бит / 409600 пикселей = 2867200 бит / 409600 пикселей = 7.0 бит
Кол-во цветов = 2^7.0 бит = 128.0 цветов

3)
280 Гбайт = 280 * 1024 * 1024 * 1024 * 8 бит = 2405181685760 бит
700 Мбайт = 700 * 1024 * 1024 * 8 бит = 5872025600 бит
Кол-во = 2405181685760 / 5872025600 шт = 409.6 шт  ~= 410 шт (округляем в большую сторону так как кусками тут быть не может)