Question

Паскаль Даны четыре целых числа. Найти сумму четных и нечетных чисел.

Answer 1

Var
a: array [1..4] of integer;
i, sf, ss : integer;
begin
for i:=1 to 4 do
begin
a[i]:= random(50)+1;
writeln(a[i]);
if a[i] mod 2 = 0 then sf:=sf+a[i] else
ss:= ss+a[i];
end;
writeln('Сумма четных: ', sf, ' ; сумма нечетных: ', ss);
end.

Answer 2

Для решения этой задачи мы можем использовать язык программирования, например, Python.

Предположим, что у нас есть четыре целых числа: a, b, c и d. Мы можем найти сумму четных и нечетных чисел следующим образом:

a = 3
b = 6
c = 7
d = 10

sum_even = 0
sum_odd = 0

numbers = [a, b, c, d]

for num in numbers:
    if num % 2 == 0:
        sum_even += num
    else:
        sum_odd += num

print("Сумма четных чисел:", sum_even)
print("Сумма нечетных чисел:", sum_odd)

В этом примере мы создали четыре переменные a, b, c и d, инициализировали их значениями 3, 6, 7 и 10 соответственно. Затем мы создали две переменные sum_even и sum_odd, которые будут хранить сумму четных и нечетных чисел соответственно.

Затем мы создали список numbers, содержащий все четыре числа. Мы использовали цикл for, чтобы перебрать все числа в списке и проверить, является ли оно четным или нечетным. Если число четное, мы добавляем его к сумме четных чисел, иначе добавляем его к сумме нечетных чисел.

Наконец, мы выводим сумму четных и нечетных чисел на экран. В данном случае, результат будет следующим:

Сумма четных чисел: 16
Сумма нечетных чисел: 10