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

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

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

Задать свой вопрос
1 ответ
Var
  a, n: integer;
 
begin
  n := 0;
  read(a);
  while a gt; 0 do
  begin
    a := a div 10;
    n := n + 1;
  end;
  if(n mod 2 = 0) and (n lt;gt; 0) then write('Правильно')
  else write('Ошибочно');
end.
Сергей Линава
спасибо <3
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт