Var x:array[1..10] of integer;
i,n,s:integer;
begin s:=0;
for i:=1 to n do
read(x[i]);
for i:=1 to n do
if x[i] mod2=1 then s:=s+x[i];
writeln('s=,s);
readln;
readln
end.
Думаю так будет.
begin
var n1 := ReadlnInteger();
var s := n1.ToString;
var n2 := s[::-1].ToInteger;
Print(n2)
end.
1)
2кбайта = 2048 байт
2048/256=8 сек
2)
800*5=4000 бит
3)
8 бит