Question

Срочно!

 

Дано трехзначное число. Если сумма цифр этого числа превышает 15, то вывести эту сумму. Иначе вывести произведение цифр этого числа.

 

Необходимо решение на языке Паскаль. Заранее спасибо!

Answer 1

var a: integer;

     s,s1: integer;

begin

  readln(a);

  s:=(a div 100)+((a mod 100) div 10)+((a mod 100) mod 10);

  s1:=(a div 100)*((a mod 100) div 10)*((a mod 100) mod 10);

  if s>15 then writeln(s) else writeln(s1);

end.