Алфавит 64 = 2^6 - т.е. 6 бит каждый символ
v = 12 * 16 * 52 * 6 = 59904 бит / 8 = 7488 байт / 1024 = 7,3125 Кбайт
<em>// PascalABC.NET 3.2, сборка 1485 от 15.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a,b,x,y:real;
Writeln('Введите a,b,x,y'); Read(a,b,x,y);
var F:=cos(Power(x,a-b))/(Abs(Power(y,4)-Power(y,5))+5.4)+n*n;
Writeln('F=',F)
end.
<u>Пример</u>
n= 14
Введите a,b,x,y
1.35 0.58 6.2 3.19
F=195.99743737259
35 = 100011
35:2=17 с остатком 1
17:2=8 с остатком 1
8:2=4 без остатка 0
4:2=2 без остатка 0
2:2=1 без остатка 0
1:2=0,5 с остатком 1
записывать снизу вверх
Вот так вот
=sqrt(3*A52-1)
Ответ:
program S52;
uses crt;
var x,s,z:real;
begin
writeln('Введите числло x');
read(x);
if x<=3 then
begin
S:=(sqr(x))-(3*x)+9;
end;
if x>3 then
begin
S:=1/((x*x*x)+6);
end;
writeln('F(x)=',S:6:2);
end.
Объяснение: