Относительно недавно, допустил я ошибку в задаче и никак не мог ее найти...Задача состояла вот в чем: нам данное целое число. Сделать необходимо число оборотень. Задачу решить надо было исключительно 2 вариантами: 1) только с числами; 2) с буквенными величинами.

код

var
n:longint;
k,i:integer;
s:real;
a:array[1..10] of integer;
begin
{блок введення}
writeln('введите число');
read(n);
{цифри числа заносим в массив}
K:=0
while n>0 do begin
k:=k+1;
a[k]=n mod 10;
n:=n div 10;
end;
{переименовывание числового массива в число}
S:=0
For i:=1 to k do
s:=s+a[i]*exp((k-i)*ln(10));
{округление числа до целого}
n:=round(s);
writeln('число',n);
end.

Попробовал вариант, который должен был работать как с цифрами так и с буквами:

Program U;
var n, m: string;
i:integer;
begin
writeln('vvedit text');
read(n);
m:=n;
for i:=1 to length(n) do m[i]:=n[length(n)-i+1];
writeln('vurdalak - ',m);
readln;
end.

Работает в TP7

procedure TForm1.Edit1Change(Sender: TObject);
var m, n: string;
i :integer;
begin
n:=edit1.Text;
m:=n;
for i:=1 to length(n) do m[i]:=n[length(n)-i+1];
edit2.Text:=m;
end;

А данная процедура работает в обычном режиме Delphi7

Так понемногу и до решения дошел)

var
n:longint;
k,i:integer;
s:real;
a:array[1..10] of integer;
begin
{блок введения}
writeln('введите число');
read(n);
{цифри числа заносим в массив}
K:=0 //брак ;
while n>0 do begin
k:=k+1;
a[k]=n mod 10; //необходимо
n:=n div 10;
end;
{преобразование числового массива в число}
S:=0 //брак ;
For i:=1 to k do
s:=s+a[i]*exp((k-i)*ln(10));
{округление числа до целого}
n:=round(s);
writeln('число',n);
end.

Теперь все заработало)))

Спонсор поста: на сайте worldps.ru, вы всегда сможете быстро пройти обучение photoshop. Также мы представляем для вас уникальную возможность использовать уроки фотошопа с целью создания шаблонов для сайтов, красивых открыток, интересных постеров и коллажей. Плюс ко всему, посещая наш ресурс, вы научитесь грамотно обрабатывать фотографии.