Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Дано число. Поменять первую и последнюю цифру местами, если они не равны друг другу.
Паскаль)

Ответ оставил Гость

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.
Как вариант) Может, не совсем эффективно, но работает.