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

Формат ввода

В входном файле находится одно четырехзначное число.

Формат вывода

В выходной файл следует вывести сообщение "YES", если сумма цифр число четная или "NO", если сумма не четная.

Question

Информатика

Порфир

15 мая, 05:41

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

Формат ввода

В входном файле находится одно четырехзначное число.

Формат вывода

В выходной файл следует вывести сообщение "YES", если сумма цифр число четная или "NO", если сумма не четная.

+4

Ответы (1)

Знаешь ответ?

Мика · 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.