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

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.