2⁷ = 128 - один символ имеет размер 7 бит
30*45*7 = 9450 бит = 1,15 Кбайт
На паскале
var a: integer;
begin
write('Введите целое число'); Readln(a);
if a>=0 then write(a*a) else write(a*a*a);
end.
Var a,b,c:integer;
d:array [1..20] of integer;
begin
randomize;
for a:=1 to 5 do begin
d[a]:=random(-100,100);
if d[a] mod 2 = 0 then writeln('чётный элемент массива ==> ',d[a])
else writeln('нечётный элемент массива ==> ',d[a]);
end;
end.<span>
</span>
Ответ: 1,3
с1 получает целое число от деления.
с2 получает остаток от деления.
Потом просто выводятся через пробел.