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