Даны три числа x, y и z. Найти: Количество и сумму четных чисел, ...

Moderator

program z3;uses crt;var x,y,z,k:byte;s:integer;beginclrscr;write('Введи x='); readln(x);write('Введи y='); readln(y);write('Введи z='); readln(z);if (x>z) and (not(odd(x))) then begins:=s+x;k:=k+1;end;if (y>z) and (not(odd(y))) then begins:=s+y;k:=k+1;end;writeln('Сумма чётных элементов, больших z равна ',s);writeln('Кол-во чётных элементов, больших z равно ',k);readkeyend.