Дано 4 значное число. Необходимо проверить является ли сумма цифр данного

Дано четырех значное число. Нужно проверить является ли сумма цифр данного числа четная.
Формат ввода
В входном файле находится одно четырехзначное число.
Формат вывода
В выходной файл следует вывести сообщение "YES", если сумма цифр число четная или "NO", если сумма не четная.

Задать свой вопрос
1 ответ
Var
a:array[1..4] of integer;
s,i:integer;
begin
while i lt; 4 do begin
i+=1;
read(a[i]);
s+=a[i];
end;
if frac(s/2) = 0 then write('yes')
else write('not');
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт