Question

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

Answer 1

A) 
var a,sum,p:integer; 
begin 
writeln('Введите число a'); 
read(a); 
sum:=a div 10 + a mod 10; 
p:=(a div 10) * (a mod 10); 
writeln('Сумма цифр числа =',sum); 
writeln('Произведение цифр числа =',p); 
end. 

б)
var a:integer; 
begin 
writeln('Введите число a'); 
read(a); 
a:=(a mod 10)*10+a div 10; 
writeln(a); 
end.

Answer 2

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

program TwoDigitNumber;

var
  number, digit1, digit2, sum, product, rearrangedNumber: integer;

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

// Определение цифр числа
  digit1 := number div 10;
  digit2 := number mod 10;

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

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

// Формирование числа, образованного перестановкой цифр исходного числа
  rearrangedNumber := digit2 * 10 + digit1;

// Вывод числа, образованного перестановкой цифр
  writeln('Число, образованное перестановкой цифр: ', rearrangedNumber);

end.

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

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