Question

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

Answer 1

var
a,b,c,d,e:integer;

begin
writeln('vvedity chislo ot 11 do 99 ili vvedity 0 dlya generacii sluchainogo chisla');
readln(a);

if a=0 then
begin

randomize;
a:=random(89) + 10
end;
b:=a div 10;
c:=a mod 10;
d:=b+c;
e:=b*c;
writeln('chislo=',a);
writeln('summa cifr chisla ',a,'=',d);
writeln ('proizvedenie cifr chisla ',a,'=',e);
writeln('chislo obrazovanoe perestanovkoi cifr chisla ',a,'=',c,b);
readln;

end.

Answer 2

а) Для определения суммы и произведения цифр двузначного числа, нужно сначала разделить это число на десятки и единицы, а затем сложить и перемножить полученные числа. Ниже приведена программа на языке Паскаль, которая реализует это:

program SumAndProduct;
var
  number, tens, units, sum, product: integer;
begin
  // Ввод двузначного числа
  writeln('Введите двузначное число:');
  readln(number);
  
  // Вычисление десятков и единиц
  tens := number div 10;
  units := number mod 10;
  
  // Вычисление суммы и произведения
  sum := tens + units;
  product := tens * units;

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

б) Для образования числа, полученного перестановкой цифр исходного числа, нужно поменять местами десятки и единицы. Ниже представлена программа на языке Паскаль, реализующая это:

program SwapDigits;
var
  number, tens, units, swappedNumber: integer;
begin
  // Ввод двузначного числа
  writeln('Введите двузначное число:');
  readln(number);
  
  // Вычисление десятков и единиц
  tens := number div 10;
  units := number mod 10;
  
  // Образование числа, полученного перестановкой цифр
  swappedNumber := units * 10 + tens;

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

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