Question

Дано четырёхзначное число n. Проверить,будет ли сумма его цифр чётным числом

Answer 1

Var
n:integer;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
if ((n>999) and (n<10000)) or ((n>-10000) and (n<-999)) then Begin
Write('Сумма цифр числа ',n);
if ((n div 1000 + n div 100 mod 10 + n div 10 mod 10 + n mod 10) mod 2) = 0 then Write(' чётна') else Write(' не чётна');
End
else write('Число ',n,' не четырёхзначное. Перезапустите программу');
End.

Answer 2

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

Для этого можно использовать следующий алгоритм: 1. Разделить четырехзначное число n на 1000, чтобы получить первую цифру. 2. Вычислить остаток от деления четырехзначного числа n на 1000, затем разделить результат на 100, чтобы получить вторую цифру. 3. Повторить шаг 2 для получения третьей цифры. 4. И, наконец, вычислить остаток от деления четырехзначного числа n на 10, чтобы получить четвертую цифру.

После получения всех цифр нужно сложить их и проверить, является ли сумма четной или нечетной.

Пример: Допустим, у нас есть четырехзначное число n = 1234. 1. Первая цифра = 1234 / 1000 = 1. 2. Вторая цифра = (1234 % 1000) / 100 = 2. 3. Третья цифра = ((1234 % 1000) % 100) / 10 = 3. 4. Четвертая цифра = (1234 % 10) = 4.

Сумма цифр = 1 + 2 + 3 + 4 = 10.

Так как сумма цифр равна 10, то она является четной, и можно сделать вывод, что сумма цифр четырехзначного числа n = 1234 является четным числом.

Таким образом, для проверки, будет ли сумма цифр четырехзначного числа n четным числом, можно использовать алгоритм, описанный выше.