Срочно, кто очень хорошо знает паскаль!) Задача написать ** языке паскаль)) Дано...

Question

Срочно, кто очень хорошо знает паскаль!)
Задача написать на языке паскаль))

Дано натуральное число. Верно ли, что количество всех его цифр, есть четное число?

Answer 1

Var
  a, n: integer;
 
begin
  n := 0;
  read(a);
  while a > 0 do
  begin
    a := a div 10;
    n := n + 1;
  end;
  if(n mod 2 = 0) and (n <> 0) then write('Верно')
  else write('Неверно');
end.

Comments

спасибо <3