Question

Напишите программу на Паскале. Определяет сумму и произведение цифр двузначного числа и число наоборот ​

Answer 1

program raf105;

var a,b,c:integer;

begin

write('Введите двузначное число: ');

readln(a);

b:= a div 10;

c:= a mod 10;

writeln('Сумма цифр из двузначного числа= ',b+c);

writeln('Произведение цифр из двузначного числа= ',b*c);

writeln('Введённое число наоборот: ',c,b);

end.

Answer 2

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

pascalCopy code
program SumAndProductOfDigits;

var
  num, numReversed, digit, sum, product: Integer;

begin
  // Вводим двузначное число
  Write('Введите двузначное число: ');
  ReadLn(num);

  // Проверяем, что введенное число действительно двузначное
  if (num < 10) or (num > 99) then
  begin
    WriteLn('Ошибка: Введенное число не является двузначным.');
    Exit;
  end;

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

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

  // Находим число в обратном порядке
  numReversed := 0;
  digit := num;
  while digit > 0 do
  begin
    numReversed := numReversed * 10 + (digit mod 10);
    digit := digit div 10;
  end;

  // Выводим число в обратном порядке
  WriteLn('Число ', num, ' в обратном порядке: ', numReversed);
end.

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