Question

Написать программу на Pascal,которая на вход получает любое натуральное целое число. На выходе программа сообщает сумму всех цифр и произведение всех нечётных цифр числа. Гарантируется, что в числе есть и чётные и нечётные цифры.

Answer 1

Ответ:

Не совсем верно, но очень близко.

uses crt;

const nmax=100;

var a:array[1..nmax] of integer;

n,i,j,k:byte;

begin

clrscr;

repeat

write('Размер массива до ',nmax,' n=');

readln(n);

until n in [1..nmax];

writeln('Введите элементы массива:');

for i:=1 to n do

begin

write('a[',i,']=');

readln(a[i]);

end;

clrscr;

writeln('Массив:');

for i:=1 to n do

write(a[i]:4);

writeln;

writeln;

k:=0;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[j]=a[i] then k:=k+1;

if k=1 then write('В массиве только 2 одинаковых элемента')

else write('В массиве не 2 одинаковых элемента');

readln

end.

Объяснение:

Answer 2

##

var n: BigInteger;

while True do

begin  

 var s := ReadString('Введи число:');

 if BigInteger.TryParse(s, n) then

   break

 else

   Println('Неверный ввод, повторите')

end;  

n := Abs(n);

var (s, p) := (0bi, 1bi);

while n > 0 do

begin

 var d := n mod 10;

 s += d;

 if d mod 2 <> 0 then p *= d;

 n := n div 10

end;

Print(s, p)

Answer 3

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

pascalCopy code
program SumAndProductOfDigits;
var
  number, digit, sum, product: integer;
begin
  // Инициализируем переменные
  sum := 0;
  product := 1;

  // Вводим натуральное целое число
  write('Введите натуральное целое число: ');
  readln(number);

  // Проверяем, что число положительное
  if number <= 0 then
  begin
    writeln('Число должно быть натуральным и положительным.');
    exit;
  end;

  // Вычисляем сумму и произведение цифр числа
  while number > 0 do
  begin
    digit := number mod 10; // Получаем последнюю цифру числа
    sum := sum + digit;    // Добавляем цифру к сумме

    // Если цифра нечётная, умножаем её на произведение
    if digit mod 2 <> 0 then
      product := product * digit;

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

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

end.

Просто скопируйте этот код в среду разработки Pascal (например, Lazarus) и выполните программу. Она попросит вас ввести натуральное целое число, а затем выведет сумму всех цифр и произведение всех нечётных цифр этого числа.