Question

Програма прости ввести 2 двух значиных числа если сума чисел больше его добутку то вывести сума если не больше то вывести добуток паскаль СРОЧНОООООЛ​ 75БАЛЛОВ ДАЮЮЮ

Answer 1

Ответ:

var

   number, sum, multiplication: integer;

begin

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

   readln(number);

   sum := 0;

   multiplication := 1;

   while number > 0 do begin

       sum := sum + number mod 10;

       multiplication := multiplication * (number mod 10);

       number := number div 10

   end;

   if sum > multiplication then

       writeln('Сума')

   else

       writeln('Добуток')

end.

Объяснение:

Сначала объявляем, что переменные number, sum и multiplication - целочисленные.

Далее просим ввести number с клавиатуры.

Далее сравниваем по условию, ежели сумма больше произведения, то выводим слово "Сума".

Иначе выводим "Добуток".