Var s,s1:string;
i:integer;
begin;
readln(s);
for i:=length(s) downto 1 do
s1:=s1+s[i];
writeln(s1);
<span>end.</span>
Program znak;
<span>var N: integer;
begin
write(' N = ');
readln(N);
</span>if N>0 tnen write(' положительное ')
else write(' отрицательное ');
end.
Ответ:
нет такого,лучше играть без читов,в любой игре!
Каждый символ кодируется<span> 16 </span>битами<span> или </span>2<span> байтами</span>