Решение задачи Proc 24

#include <stdio.h>

int even(int k){
    return k%2?0:1;
}
 
int main(void)
{
    int i,res=0;
    for (i=1; i<=10; ++i){
        int k;
        printf("K:");
        scanf("%i", &k);
        res+=even(k);
     }
    printf("Res: %i\n",res);
    return 0;
}

import random

def Even(K):
    if K%2 == 0:
        return True
    return False

s = 0
for i in range(0,10):
    x = random.randrange(1,11)
    print(x,end="; ")
    s += int(Even(x))

print("\nAmount of even numbers:",s)
									

program Proc24;
 
Function Even(K:Integer):Boolean;
begin
 Even:=not(odd(k));
end;
 
var
 i,N,Res:Integer;
 
begin
 for i:=1 to 10 do
 begin
 Write('N :');
 Readln(N);
 
 if Even(N) then Inc(Res);
 end;
 Writeln(Res);
end.