Question

ДАНО ШЕСТИЗНАЧНОЕ ЧИСЛО.ПОМЕНЯЙТЕ МЕСТАМИ ПЕРВУЮ И ПОСЛЕДНЮЮ ЦИФРЫ. (Паскаль) любые цифры

Answer 1

var a: integer;

begin

  readln(a);

  digit1:= a div 10;

  digit6:= a mod 10;

  writeln(digit6 * 100000 + (a mod 10000 div 10) * 10 + digit1)

end.

Answer 2

Вот пример программы на языке Pascal, которая меняет местами первую и последнюю цифры в шестизначном числе:

pascalCopy code
program SwapDigits;

var
  number, firstDigit, lastDigit, swappedNumber: integer;

begin
  // Ввод шестизначного числа
  write('Введите шестизначное число: ');
  readln(number);

  // Проверка на то, что число действительно шестизначное
  if (number >= 100000) and (number <= 999999) then
  begin
    // Находим первую цифру
    firstDigit := number div 100000;

    // Находим последнюю цифру
    lastDigit := number mod 10;

    // Меняем местами первую и последнюю цифры
    swappedNumber := lastDigit * 100000 + number mod 100000 div 10 * 10 + firstDigit;

    // Вывод результата
    writeln('Число после замены: ', swappedNumber);
  end
  else
    writeln('Введенное число не является шестизначным.');

end.

Эта программа сначала запрашивает у пользователя ввод шестизначного числа, затем проверяет его на соответствие этому условию. Если число шестизначное, то программа меняет местами первую и последнюю цифры и выводит результат.