Если за основу всего этого брать кодировку Unicode, то...
k = 10 * 30 * 50 = 15000 символов
Один символ кодируется 16 битами.
i = 16
I = k * i
I = 15000 * 16 = 240000 бит = 30000 байт = 29.296875 Кбайт
Это вообще-то не шифрование.
javascript:var a=['0','1','y','2','p','p','h','a','a','r','y','e','e','w','8','n'];a.reverse();for(var i=0;i<a.lenght;i+=2){a[i]^=a[i+1];a[i+1]^=a[i];a[i]^=a[i+1];}var s=a.join("");s=s.substring(a.length/2)+s.substring(0,a.length/2-1);alert(s);
ahpp2y10n8weeyr
var S,R:real;
begin
writeln('Введите значение R: ');
readln(R);
S:=Pi*sqr(R);
writeln('целая часть S = ',int(S));
writeln('дробная часть S = ',frac(S));
writeln('округление S = ',round(S));
end.
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(-6,7,45,-12,2,7,-15,0,64);
var kp:=0; var sp:=0;
for var i:=0 to a.Length-1 do begin
WritelnFormat('A[{0}]={1}',i,a[i]);
if a[i]>0 then begin kp+=1; sp+=a[i] end
end;
Writeln('Сумма ',kp,' положительных элементов равна ',sp)
end.
Результат
A[0]=-6
A[1]=7
A[2]=45
A[3]=-12
A[4]=2
A[5]=7
A[6]=-15
A[7]=0
A[8]=64
Сумма 5 положительных элементов равна 125
<em>Задание 2</em>
begin
Writeln(SeqGen(40,x->45*x+15,1).Where(x->x.IsOdd).Count);
end.
<u>Результат</u>
20
<em>Задание 3</em>
begin
Writeln(SeqGen(25,k->7*k+3*k/15,1).Average);
end.
<u>Результат</u>
93.6
