Question

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

Answer 1

var a,one,dec,hun:integer;
begin
  writeln('Введите число');
  readln(a);
  one:=a mod 10; dec:=(a mod 100)div 10; hun:=a div 100;
    if (one+dec+hun)mod 2 <> 0 then a:=a*2;
  writeln('Ответ: ',a);
  readln
end.