Question

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

Answer 1

Program Test;

Var a, b, c, d, num, sum: integer;

Begin

Write('Введите четырехзначное число: ');
Readln(num);

a := num div 1000;
b := num div 100;
b := b mod 10;
c := num div 10;
c := c mod 10;
d := num mod 10;

sum := a + b + c + d;

if (sum mod 2 = 0) then
begin
Writeln();
Writeln('Yes');
end

else
begin
Writeln();
Writeln('No');
end;

End.

Answer 2

Пример решения на языке Pascal:

typescriptCopy code
program SumIsEven;

var
  number, sum, digit: integer;

begin
  // Считываем четырехзначное число
  readln(number);

  // Суммируем цифры числа
  sum := 0;
  for i := 1 to 4 do
  begin
    digit := number mod 10;
    sum := sum + digit;
    number := number div 10;
  end;

  // Проверяем четность суммы цифр и выводим ответ
  if sum mod 2 = 0 then
    writeln('YES')
  else
    writeln('NO');
end.

В данном примере мы считываем четырехзначное число и суммируем его цифры, используя операции остатка от деления и целочисленного деления. Затем мы проверяем четность суммы цифр и выводим ответ в соответствии с условием задачи.