uses Crt;
var i, Sum: integer;
begin
ClrScr;
Sum:=0;
for i:=100 to 200 do
if (i mod 2)=0 then Sum:= Sum+i;
WriteLn (' Sum = ', Sum);
ReadLn;
<span>end.</span>
Снеговик - растаял
Елка - срубили
Елочная игрушка - разбили
Торт - съели
1) Девочки класса
2) Мальчики класса
3) Классный руководитель
4) Наши внеклассные мероприятия
5) Наши уроки
<span> Как-то так =)</span>
000 R = 0
001 R = 0
010 R = 1
011 R = 1
100 R = 0
101 R = 0
110 R = 0
111 R = 0
Код программы:
Var A,B,C : Boolean;
Begin
For A:=False to True do
For B:=False to True do
For C:=False to True do Writeln(Ord(A),Ord(B),Ord(C),' R = ',ord((not A) and (B or not C) and B));
end.