исправить

[92Edik]

Program Ex_01;
var n:integer;
result,j,i:integer;
begin
write('Ввод числа');
READLN (n);
WRITELn;
n:=10;
While i div n<>0 do
n:=n*10;
n:=n div 10;
j:=i div n;
i:=i mod 10 *n+i mod n;
i:= i div 10*10+j;
WRITELN (I);
result:=i;
End.


зделайте прогу рабочей вот условие=Поменять местами первую и последнию цифру числа.

[Alex11223]

Вам не нужен result, в исходной проге это было в функции. И вы вводите n, а потом сразу присваиваете ему значение 10 вместо введенного.

Кстати, используйте тег [CODE] (значок #) для сохранения форматирования\подсветки кода в вашем сообщении.

[92Edik]

Объесните пожалуйста что такое= "Кстати, используйте тег [CODE] (значок #) для сохранения форматирования\подсветки кода в вашем сообщении."

[Alex11223]

В форме ответа\редактирования сообщения есть значок # вставляющий тег [CODE] [/CОDE], внутри которого код не теряет исходное форматирование. Вот так

program Ex_01;

var
   n: integer;
   result, j, i: integer;

begin
   write('Ввод числа');
   READLN(n);
   WRITELn;
   n := 10;
   while i div n <> 0 do 
      n := n * 10;
   n := n div 10;
   j := i div n;
   i := i mod 10 * n + i mod n;
   i := i div 10 * 10 + j;
   WRITELN(I);
   result := i;
end.