Question

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

Answer 1

Var
      a:integer;
Begin
  read(a);
   write('Сумма цифр: ',(a mod 10) + (a div 10));
   writeln(', произведение цифр: ',(a mod 10) * (a div 10));
   write(a mod 10, a div 10);
End.

Answer 2

Конечно, вот программа на языке Паскаль, которая выполняет задачу:

pascalCopy code
program TwoDigitNumber;
var
  inputNumber, firstDigit, secondDigit, sum, product, reversedNumber: integer;
begin
  write('Введите двузначное число: ');
  readln(inputNumber);

  // Проверяем, что введено двузначное число
  if (inputNumber < 10) or (inputNumber > 99) then
  begin
    writeln('Введенное число не является двузначным.');
    exit;
  end;

  // Вычисляем сумму и произведение цифр
  firstDigit := inputNumber div 10;
  secondDigit := inputNumber mod 10;
  sum := firstDigit + secondDigit;
  product := firstDigit * secondDigit;

  writeln('Сумма цифр: ', sum);
  writeln('Произведение цифр: ', product);

  // Определяем число, образованное перестановкой цифр
  reversedNumber := secondDigit * 10 + firstDigit;
  writeln('Число с перестановкой цифр: ', reversedNumber);
end.

Программа сначала проверяет, что введено двузначное число, а затем находит сумму и произведение его цифр. Далее, она определяет число, образованное перестановкой цифр исходного числа.