Решить задачу. Нужна программа на Паскале

проверить трехзначное число на четность и найти сумму его цифр если оно четное и произведение его числа если оно нечетное

Question

Информатика

Ая

14 февраля, 07:18

Решить задачу. Нужна программа на Паскале

проверить трехзначное число на четность и найти сумму его цифр если оно четное и произведение его числа если оно нечетное

+3

Ответы (1)

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

Никитич · Answer 1

Program n1;

var a, pr: integer;

begin

readln (a) ;

if (a mod 2=0) then write ((a mod 10) + (a mod 100 div 10) + (a div 100)) else

write ((a mod 10) * (a mod 100 div 10) * (a div 100)) ;

end.

Решить задачу. Нужна программа на Паскалепроверить трехзначное число на четность и найти сумму его цифр если оно четное и произведение его числа если оно нечетное