Question

Даю 30 баллов! Решите: Дано целое трёхзначное число х. Составьте программу вычисления суммы и произведения цифр трёхзначного числа х. Значение х ввести с клавиатуры. Язык программирования Паскаль

Answer 1

var

s,pr,x : integer;

begin

readln(x);

x := abs(x);

s:= 0;

pr:= 1;

while x > 0 do

begin

s := s + x mod 10;

pr := pr * x mod 10;

x:= x div 10;

end;

writeln('S = ',s);

writeln('PR = ',pr);

end.

Answer 2

Для решения данной задачи на языке программирования Паскаль можно использовать следующий код:

program SumAndProduct;
var
  x, a, b, c, sum, product: integer;
begin
  // Ввод трехзначного числа x с клавиатуры
  write('Введите трехзначное число x: ');
  readln(x);

// Вычисление суммы и произведения цифр трехзначного числа x
  a := x div 100; // Получение первой цифры числа x
  b := (x div 10) mod 10; // Получение второй цифры числа x
  c := x mod 10; // Получение третьей цифры числа x

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

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

После запуска программы, она запросит ввод трехзначного числа `x` с клавиатуры. Затем программа вычислит сумму и произведение цифр этого числа и выведет результаты на экран.

Например, если ввести число 123, программа выведет: ``` Сумма цифр числа 123 равна 6 Произведение цифр числа 123 равно 6 ```

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