Question

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

Answer 1

Var
Summ, proizv, per,A,b,n:integer;
Begin
Read(n);
A:=n div 10;
B:=n mod 10;
Summ:=a+b;
Proizv:=a*b;
Per:=b*10+a;
Write(Summ, proizv, per);
End.

Answer 2

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

pascalCopy code
program TwoDigitNumber;
var
  num, tens, ones, sum, product, reversedNum: integer;
begin
  // Ввод двузначного числа
  write('Введите двузначное число: ');
  readln(num);

  // Проверка на то, что число действительно двузначное
  if (num < 10) or (num > 99) then
  begin
    writeln('Введено некорректное число. Пожалуйста, введите двузначное число.');
    exit;
  end;

  // Вычисление десятков и единиц
  tens := num div 10;
  ones := num mod 10;

  // Вычисление суммы и произведения цифр
  sum := tens + ones;
  product := tens * ones;

  // Вычисление числа, образованного перестановкой цифр
  reversedNum := ones * 10 + tens;

  // Вывод результатов
  writeln('Сумма цифр: ', sum);
  writeln('Произведение цифр: ', product);
  writeln('Число, образованное перестановкой цифр: ', reversedNum);
end.

Вы можете скопировать этот код в среду разработки Pascal (например, Lazarus) и выполнить программу, чтобы увидеть результаты для введенного двузначного числа.