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.

Answer 2

var a,b,c,s:Integer;
begin
Read(s);
a:= s div 100;
b:= s div 10 mod 10;
c:= s mod 10;
if odd(s) then
WriteLn('Нечетное. произведение чисел равно '+a*b*c)
else
WriteLn('Четное. Сумма чисел равна '+(a+b+c));
end.