Program qq; var a, x, y, count, i: integer; begin writeln('Введите число'); readln(a); x:=a mod 10; y:=a; count:=0; while(y>9) do begin y:=y div 10; count:=count+1; end; if x<>y then begin a:=a-x+y; for i:=1 to count do begin x:=x*10; y:=y*10; end; a:=a-y+x; writeln('Получено число:'); writeln(a); end else writeln('Первая и последняя цифра одинаковые.'); end. Как вариант) Может, не совсем эффективно, но работает.
var a, x, y, count, i: integer;
begin
writeln('Введите число');
readln(a);
x:=a mod 10;
y:=a;
count:=0;
while(y>9) do
begin
y:=y div 10;
count:=count+1;
end;
if x<>y then
begin
a:=a-x+y;
for i:=1 to count do
begin
x:=x*10;
y:=y*10;
end;
a:=a-y+x;
writeln('Получено число:');
writeln(a);
end
else
writeln('Первая и последняя цифра одинаковые.');
end.
Как вариант) Может, не совсем эффективно, но работает.