Question

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

Answer 1

var
a:array[1..4] of integer;
s,i:integer;
begin
while i < 4 do begin
i+=1;
read(a[i]);
s+=a[i];
end;
if frac(s/2) = 0 then write('yes')
else write('not');
end.