Question

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

Answer 1

Ответ:

var i: integer;

begin

randomize;

i := 10 + random (90);

writeln ('число = ', i);

writeln;

writeln ('сумма его цифр = ', i mod 10 + i div 10 );

writeln ('произведение его цифр = ', (i mod 10) * (i div 10 ));

write ('число, образованное перестановкой цифр исходного числа = ', (i mod 10) *10 + i div 10);

end.

Answer 2

Конечно! Вот программа на языке Pascal, которая выполняет указанные задачи:

pascalCopy code
program NumberManipulation;

var
  num, originalNum, digit, sum, product: integer;
  newNumber: string;

begin
  // Ввод трехзначного числа
  writeln('Введите трехзначное число:');
  readln(num);

  // Сохранение оригинального числа для перестановки цифр
  originalNum := num;

  // Инициализация суммы и произведения цифр
  sum := 0;
  product := 1;

  // Вычленение цифр, вычисление суммы и произведения
  while num > 0 do
  begin
    digit := num mod 10;
    sum := sum + digit;
    product := product * digit;
    num := num div 10;
  end;

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

  // Перестановка цифр для нового числа
  newNumber := '';
  while originalNum > 0 do
  begin
    digit := originalNum mod 10;
    newNumber := chr(48 + digit) + newNumber;
    originalNum := originalNum div 10;
  end;

  writeln('Число, образованное перестановкой цифр исходного числа: ', newNumber);
end.

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