Var
i, j: longint;
b: boolean;
begin
b := true;
for i := 1000 to 9999 do
begin
for j := 2 to i - 1 do
begin
if(i mod j = 0) then
begin
b := false;
break;
end;
end;
if(b = true) then writeln(i);
b := true;
end;
end.
1)-622
2)-26Е
3)-11001101
4)-110100100
5)-212.8125
Из строки 0110 видно, что b стоит в 1 столбце (из-за первой скобки)
из строки 0010 видно, что c стоит в 3 столбце (из-за второй скобки)
остаётся a, она стоит во втором столбце
Ответ: bac