Вопрос пользователя:
Срочно!
Дано трехзначное число. Если сумма цифр этого числа превышает 15, то вывести эту сумму. Иначе вывести произведение цифр этого числа.
Необходимо решение на языке Паскаль. Заранее спасибо!
Илюха отвечает:
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.