Question

Знайти суму і добуток цифр двозначного числа, яке вводить користувач. В программе Паскаль

Answer 1

var

 x, n, n1: integer;

begin

 Writeln('Введите число: ');

 Read(x);

 if (x > 9) and (x < 100) then

 begin

   n := (x div 10) + (x mod 10);

   n1 := (x div 10) * (x mod 10);

   Writeln('Sum:= ', n, ' Proizved:= ', n1);

 end;

end.

Answer 2

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

pascalCopy code
program SumAndProductOfDigits;

var
  number, digit1, digit2, sum, product: integer;

begin
  // Запитуємо користувача про двозначне число
  writeln('Введіть двозначне число:');
  readln(number);
  
  // Розділяємо число на цифри
  digit1 := number div 10;
  digit2 := number mod 10;
  
  // Знаходимо суму і добуток цифр
  sum := digit1 + digit2;
  product := digit1 * digit2;
  
  // Виводимо результат
  writeln('Сума цифр:', sum);
  writeln('Добуток цифр:', product);
  
  readln;
end.

Ця програма спочатку запитує користувача про двозначне число, розділяє його на цифри (першу цифру знаходимо за допомогою ділення на 10, а другу - за допомогою остачі від ділення на 10), обчислює суму і добуток цих цифр, і виводить результат.