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

Ответы 1

  • vara:array[1..4] of integer;s,i:integer;beginwhile i < 4 do begini+=1;read(a[i]);s+=a[i];end;if frac(s/2) = 0 then write('yes')else write('not');end.
    • Автор:

      aarav
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years