Question

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

Answer 1

                                     PascalABC.NET                                      

Ответ:

• begin
• var a := Arr((39).ToString.AsEnumerable).ConvertAll(c->c.ToDigit);
• a.Sum.Println;
• a.Aggregate(1,(p,c)->p*c).Println;
• end.

Пример работы:

Answer 2

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

pascalCopy code
program SumAndProduct;

var
  num, digit, sum, product: integer;

begin
  num := 39; // Исходное число
  sum := 0;  // Изначально сумма равна 0
  product := 1; // Изначально произведение равно 1

  while num > 0 do
  begin
    digit := num mod 10; // Получаем последнюю цифру числа
    sum := sum + digit;  // Добавляем цифру к сумме
    product := product * digit; // Умножаем цифру на текущее произведение

    num := num div 10; // Убираем последнюю цифру из числа
  end;

  writeln('Сумма цифр числа 39: ', sum);
  writeln('Произведение цифр числа 39: ', product);
end.

Программа будет выводить:

yamlCopy code
Сумма цифр числа 39: 12
Произведение цифр числа 39: 27