Question

Решите на паскале. Дано пятизначное число, если первая цифра больше последней то найти произведение 2-й и 4-й цифр, иначе поменять местами 3-ю и 5-ю цифры местами.

Answer 1

Ответ:

var

  a:integer;

begin

  readln(a);

  if ((a div 10000) > (a mod 10)) then

     writeln(((a div 1000) mod 10) * ((a mod 100) div 10))

 else writeln(((a div 100) mod 10) * (a mod 10));

end.

Answer 2

Вот пример решения данной задачи на языке Pascal:

pascalCopy code
program FiveDigitNumber;
var
  number, firstDigit, lastDigit, secondDigit, fourthDigit, thirdDigit, fifthDigit, product: integer;
begin
  writeln('Введите пятизначное число: ');
  readln(number);

  firstDigit := number div 10000;
  lastDigit := number mod 10;
  secondDigit := (number div 1000) mod 10;
  fourthDigit := (number div 10) mod 10;
  thirdDigit := (number div 100) mod 10;
  fifthDigit := (number div 100) mod 10;

  if firstDigit > lastDigit then
  begin
    product := secondDigit * fourthDigit;
    writeln('Произведение второй и четвертой цифр: ', product);
  end
  else
  begin
    writeln('Число до замены: ', number);
    number := number - (thirdDigit * 100) - (fifthDigit * 1) + (fifthDigit * 100) + (thirdDigit * 1);
    writeln('Число после замены: ', number);
  end;
end.

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