Составить функцию которая определяет верно ли что сумма его цифр четное

Составить функцию которая определяет правильно ли что сумма его цифр четное число.
Пример:
Введите число 136 сумма цифр четная........

На языке Pascal.ABC.NET

Задать свой вопрос
1 ответ
Function check(x:integer):boolean;var y: integer;beginy:= y+ (x mod 10);x:=x div 10;y:= y+ (x mod 10);x:=x div 10;y:= y+ (x mod 10);
if y mod 2 = 0 then check:=true else check:=false;end;
beginwriteln(check(136));end.
Олег Корнован
вставилось неприглядно но на итог не воздействует
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт