Ответ:
В шестом правильный ответ: Б
Объяснение:
0 * 1 * 1 = 0
1 * 1 * 1 = 1
0 * 1 * 0 = 0
Наверное, так:) Сумма уоличества всех возможных имён длиной от 1 до 5 символов, но, право, циклом короче было бы ._.
Var
i,sum:Integer;
Begin
for i:=5 to 101 do
begin
if (i mod 2 <> 0) sum:=sum+i;
end;
Writeln(sum);
end.
Составной оператор - это скобки begin...end (в С образных языках для это используются реальные скобки {}) которые позволяют объединить несколько команд под одним оператором
if a > b then begin
с:=1;
d:=2;
end
else begin
c:=3;
d:=4;
end