Можно сделать, например, так, как показано в прилагаемом файле.
Формулы:
В столбце B =1+1/A2
В столбце C =B2<1,2
В ячейке C12 =ИНДЕКС(A2:C11;ПОИСКПОЗ(ИСТИНА;C2:C11;0);1)
Ответ на твой вопрос думаю такой - 1100110
Var
i: integer;
ar: array[1..8]of integer;
begin
for i := 1 to 8 do read(ar[i]);
for i := 1 to 8 do
if(i mod 2 = 0) then write(ar[i], ' ');
end.
Var a, i: integer;
begin
read(a);
while(a <> 0) do
begin
for i := 1 to a mod 10 do write('*');
writeln();
a := a div 10;
end;
<span>end.</span>