Question

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

Answer 1

var n:integer;
begin
Write('Введите число='); Readln(N);
if odd(n) then begin
Writeln('сумма цифр=', ((N mod 10)+((N div 10) mod 10)+ (N div 100));
end
else 
Writeln('произведение цифр',  ((N mod 10)*((N div 10) mod 10)* (N div 100));
end.