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

Question

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

Comments

Сделай, ты единственный кто отозвался) плиз. \

---

НАвалю благодарностей что тут у вас)

---

Ну как поможешь?)

---

lf

---

да

---

У меня букваьно 56 минут

---

пять минут

---

Пять минут или тройку :D

---

С помощью рекурсии решение более лаконичное:

---

//FPC 2.6.4var n: integer;function prod(a: integer): integer;beginif a>0 then result:=a mod 10 * prod(a div 10) else result:=1;end;function sum(a: integer): integer;beginif a>0 then result:=a mod 10 + sum(a div 10) else result:=0;end;beginreadln (n);if n mod 2 = 0 then write (sum(n)) else write (prod(n));end.

Answer 1

//FPC 2.6.4
var n: integer;

function prod(a: integer): integer;
var p: integer;
begin
p:=1;
repeat
p:=p*(a mod 10);
a:=a div 10;
until a=0;
result:=p;
end;

function sum(a: integer): integer;
var s: integer;
begin
s:=0;
repeat
inc (s, a mod 10);
a:=a div 10;
until a=0;
result:=s;
end;

begin
readln (n);
if n mod 2 = 0 then write (sum(n)) else write (prod(n));
end.

Comments

*не то