Для чего в оперативной памяти есть шифр расшифровать.​

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.

-32=-100000

прямой код 10100000

обратный код 11011111

дополнительный код 11100000

-102=-1100110

прямой код 11100110

обратный код 10011001

дополнительный код  10011010

-126=-1111110

прямой код 11111110

обратный код 10000001

дополнительный код  10000010

на паскале:

var

n,s,p: integer;

begin

read(n);

p: =n mod 10;

if p mod 2=0 then writeln ('оканчивается на четную цифру')

                    else writeln ('оканчивается на четную цифру');

while n> 0 do

begin

n: =n div 10;

s: =s+1;

end;

writeln ('количество цифр в числе', s);

end.

поскольку язык не указан пишу в том который мне удобнее

def temp-table wares no-undo

  field ware as char

  field cost as dec extent 13

  field infl as dec.

def var i as int.

def var infl as dec.

input from data.txt.

repeat:

  create wares.

  import wares.

end.

input close.

do i = 2 to 13:

    infl=random(0.0005, 0.02).

  for each wares :

        wares.cost[i]=wares.cost[i-1]*(1+infl).

  end.

end.