Немного не понял вопроса, но если составные условия, то наверное имеется ввиду AND(и), OR(или), XOR(исключающее или).
and работает если все условия правдивы
if (a=5) and (a*a/a=5) do ...
or работает если одно и более условий верны
if(a=5) or (a=3) do ...
xor работает если ТОЛЬКО ОДНО условие верно
if (a=5) xor (a=3) do ...
Var
ch, otvet, i: longint;
begin
for i := 1 to 5 do
begin
ReadLn(ch);
otvet := otvet + ch;
end;
WriteLn(otvet);
end
Var n:integer;
x:real;
begin
n:=0;
x:=300000;
while x<550500 do
begin
x:=x+0.11*x;
n:=n+1;
end;
writeln(n);
readln;
end.
Данное двоичное число переводим в десятичную систему счисления 2^0+2^2+2^5+2^6=101 .. всего 2 единицы))
1) 100 Кбайт
64*40*40*8=819200 бит
819200 бит=100 Кбайт