Можно упростить выражение, полученное на схеме.
(¬A&B+A)&¬B = (A+B) & ¬B = A¬B+0 = A¬B
Program znanija;
Var a : Integer;
Begin
Readln(a);
Case A of
1,3,5,7,8,10,12: Writeln('31');
11,4,6,9 : Writeln('30');
2 : Writeln('29');
else Writeln('0')
end;
<span>end.</span>
<u>BackSpace</u>. Сразу над вводом, вы с ее помощью текст стираете.<span>
</span>
1) (3072 кб + 3072 кб) / 2 кб= 3072 кб
2) (7 байт+384 байт)+(2 байт+2520 байт)=645байт
4) (1 байт*1 байт*1 байт*1 байт) / 1 байт=1 байт
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>