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

Формат ввода

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

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

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

Question

Информатика

Настюша

7 декабря, 05:05

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

Формат ввода

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

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

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

+5

Ответы (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.