Дано натуральное число n. определить является ли сумма этих чисел нечетным

Var   i, n, k, c, e: integer;   s: string; begin   write('введите целое положительное число: ');   readln(n);   str(n, s);   c : = 0;   for i : = 1 to length(s) do   begin       val(s[i], k, e);       c : = c + k   end;   if c mod 2 = 0 then writeln('сумма цифр числа четная')   else writeln('сумма цифр числа нечетная') end. тестовое решение: введите целое положительное число: 534643 сумма цифр числа нечетная введите целое положительное число: 23524523 сумма цифр числа четная

Закончились лекции, и студенты пошли домой (конъюнкция). в природе бывает, что солнце при дожде светит или прячется в тучах (дизъюнкция). в этом году летом мы либо поедем к морю, либо будем жить на даче (строгая дизъюнкция). если будет хорошая погода, то мы пойдем гулять (импликация). неверно, что 2 * 2 = 5 (инверсия). завтра мы не пойдем гулять (инверсия). я куплю ноутбук тогда и только тогда, когда получу премию (эквиваленция).

сред. арифметическое = сумма всех чисел разделить на количество

 

(a1 + a2 + a3 + a4 + a5) / 5