Прошу: * текст переводится из кои-8 в юникод.объём этого текста, полученного уже в юникоде, равен 32 бит.найти n.

Кои-8 - 1 символ=8 бит unicode - 1 символ=16 бит 32 бита в юникоде= 2 символа (16 бит+16 бит= 32) соответственно, 2 символа в кои-8=16 бит ответ: 16 бит.

На pascalabc.net program aaa; const n=50; var w, c, x, d10, d4, d1: integer;   begin    writeln ('введите вес бандероли');   readln (w);   if w < = n     then c: =10     else           if w mod n = 0           then c: =10+((w div n)-1)*5           else c: =10+5+((w div n)-1)*5;     d10: = c div 10;   d4: = (c-10*d10) div 4;   d1: = (c-d10*10-d4*4);     writeln ('стоимость бандероли: ',c,' драхм');   writeln;   writeln ('для оплаты нужно не менее');   writeln (d10: 10,' монет по 10 драхм');   writeln (d4: 10,' монет по 4 драхмы');   writeln (d1: 10,' монет по 1 драхме'); end.     результат работы программы: введите вес бандероли       100 стоимость бандероли: 15 драхм для оплаты нужно не менее           1 монет по 10 драхм           1 монет по 4 драхмы           1 монет по 1 драхме

Function f(n: integer): integer; begin   writeln('вход с n=',n);   if n < 5 then       result : = f(n + 3) + f(2 * n) + f(3 * n div 2)   else       result : = n + 2;   writeln('выход для n=',n,', f=',result) end; begin   writeln(f(3)) end. результат вход с n=3 вход с n=6 выход для n=6, f=8 вход с n=6 выход для n=6, f=8 вход с n=4 вход с n=7 выход для n=7, f=9 вход с n=8 выход для n=8, f=10 вход с n=6 выход для n=6, f=8 выход для n=4, f=27 выход для n=3, f=43 43