Из оперативной памяти
............................
Var
n,x:string;
i:integer;
begin
write('Введите число n: ');
readln(n);
for i:=length(n) downto 1 do x:=x+n[i];
writeln('Обратное число: ',x)
<span>end.
или можно так:
</span>var
n:string;
begin
write('Введите число n: ');
readln(n);
writeln('Обратное число: ',ReverseString(n) )
end.
Var a:array[1..10] of real;
<span>i:integer; </span>
<span>begin </span>
<span>for i:=1 to 10 do begin </span>
<span>a[i]:=(2*i-1)/sin(i) </span>
<span>end; </span>
<span>a.Println </span>
<span>end.</span>