Найти сумму цифр 3-х значного числа, если оно больше 500, если меньше то произведение.

Question

Информатика

Злата

22 января, 23:06

Найти сумму цифр 3-х значного числа, если оно больше 500, если меньше то произведение.

+1

Ответы (1)

Знаете ответ на вопрос?

Ларион · Answer 1

Вот держите:

var a:integer;

begin

readln (a) ;

if a<500 then writeln ((a mod 10) + (a div 10 mod 10) + (a div 100))

else if a>500 then writeln ((a mod 10) * (a div 10 mod 10) * (a div 100)) ;

end.