Question

Дано пятизначное число. Что кратно 2: сумма цыфр или произведение. Составте пожалуйста программу

Answer 1

var
sum, com, n:integer;
begin
  Read(n);sum:=0;com:=1;
  while (n > 0) do begin
    sum:= sum + n mod 10;
    com:= com * (n mod 10);
    n:= n div 10;
  end;
if sum mod 2 = 0 then Writeln('Сумма цифр четная');
if com mod 2 = 0 then Writeln('Произведение цифр четное');
if (sum mod 2 = 1)and(com mod 2 = 1) then Writeln('Ни сумма ни произведение не делятся на 2 без остатка');
end.

Answer 2

помоги https://znanija.com/task/27458356 ( 20+10 баллов