Ответ:
6
Объяснение:
НЕ ( X<6) И (X<7)
Немного упростим, заменив отрицание.
НЕ ( X<6) - это утверждение "неверно, что x < 6". А какое верно? Конечно, обратное, x ≥ 6. Его и запишем.
X ≥ 6 И X < 7
Что же это за число, которое не меньше 6, но меньше 7? Если оно целое, то только 6.
5 байт, 2 бита или 42 бита (как удобно)
Как я посчитал 8,388...... Вобщем около 8,4 мб (но это не точно)
Var a,b,c,d:integer;
begin
writeln('Введите числа');
readln(a,b,c);
if (a mod 2=0) then d:=a;
if (b mod 2=0) then d:=d+b;
if (c mod 2=0) then d:=d+c;
if d<>0 then writeln('Сумма чётных чисел равняется ',d)
else writeln('Нет чётных чисел');
<span>end.</span>