//PascalABC.Net 3.2
begin
var a:=ReadArrInteger ('Вводите массив: ', readinteger('Кол-во элементов: '));
for var i:=0 to length(a)-1 do if a[i].isodd then a[i]:=sqr(i+1);
a.Println;
a.Println;
end.
Ответ:
def y(x, a):
if x < 3:
return a*x-1
else:
return x+2*a
a = int(input())
x = int(input())
res = y(x, a)
print('y(x={}, a={}) = {}'.format(x, a, res))
Объём памяти = 1280*1024*32 = 41943040 бит
41943040 бит / 8 = 5242880 байт
5242880 байт / 1024 = 5120 Кбайт
5120 Кбайт / 1024 = 5 Мбайт
var
i, n, y: integer;
begin
write ('x= ');
readln (x);
if (x>0) then
y:=sin(2*x)
else
y:=1-(2*(sin(2*x)));
write(y);
end;
31 запишется как 11111 - это 5 бит.
предложение займет 160 бит = 20 символов по 8 бит