Количество лампочек определяется log₂N
В данном случае нужно взять ближайшее большее целое значение, т.е.
log₂15 ≈log₂16=4
Sub aaa()
Cells(8, 3).Formula = "=MAX(A5:A9)+MIN(A5:A9)"
End Sub
Var
text : string;
i : integer;
begin
write('Введите текст: ');
readln(text);
write('Результат: ');
for i := length(text) downto 1 do
write(text[i]);
<span>end. </span>
Program Pr1;
uses crt;
var a,b,c:integer;
f:boolean;
Begin
clrscr;
f:=false;
readln(a,b,c);
if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then f:=true;
writeln(f);
end.