Введено трехзначное число. Если сумма его цифр нечетна, то увеличить число...

Question

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

Comments

в чем суть задания?

Answer 1

Var n,x,y:integer;
begin
readln(n);
y:=n;
while y>0 do
  begin
  x:=x+n mod 10;
  y:=y div 10;
  end;
if x mod 2=0 then n:=n*2;
writeln('Ответ: ',n);
end.