ОЧЕНЬ ЛЕГКО!
В кодировке Unicode на каждый символ отводится два байта. Определи информационный объём текста из 74 символов в этой кодировке.

ответ:
байтов.​

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.

var x: array[1..10] of real; n: integer; begin  for n: =1 to 10 do begin    x[n]: =power(3,n)-5;     writeln(x[n]);     end; end.

вот программа.

const n=5; var m: array[1..n] of integer; i,a,b: integer; beginreadln(a,b); for i: =1 to n do readln (m[i]); for i: =1 to n doif i mod 2 = 0 then m[i]: =m[i]+aelse m[i]: =m[i]+b; for i: =1 to n dowriteln ('m[', i,']=', m[i]); end.

var x,y: integer;

begin

readln(x);

if x< 1 then y: =-2*x+11

else y: =x*x-2;

writeln(y);

end.