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

Question

Информатика

Зинаша

24 августа, 06:58

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

+3

Ответы (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.