Question

9 БАЛЛОВ!!!! СРОЧНО!!!! Помогите по информатике Паскаль 8 класс!!

Если сумма цифр трёхзначного числа чётная, то разделить на 2, если нет умножить на 2

Answer 1

Var
  x, s: integer;
  k: real ;
begin
  readln(x);
  if (x > 99) and (x < 1000) then
    while x > 0 do
    begin
      s := s + x mod 10;
      x := x div 10;
    end;
  k := s / 2;
  if s mod 2 = 0 then
    writeln(k)
  else
    writeln(s * 2);
end.